[bcn-pm] script_Perl_Array_index_comparison

[alessandra.borgognone a unavarra.es]

Hola a tod a s,

Me llamo Alessandra y empecé hace poco un curso online de programación en
Perl.
Me gustaría poder participar a las próximas reuniones de Barcelona Perl
Mongers para poder charlar con vosotr a s.

Necesitaría terminar pronto un código y quería pedir un ayuda sobre la
siguiente cuestión:

Teniendo 2 arrays:
@A = ("Red", "Green", "Yellow");
@B = ("Yellow", "Black","Yellow","Red", "White", "Yellow");

En array A, cada elemento está representado 1 vez.
En array B, cada elemento puede ocurrir zero, una o más veces.

Estoy intentado combinar unos comandos que para cada elemento en A saquen
el valor de su posición en B, generando un output como el siguiente:

> Red at index 3
> Green is missing
> Yellow at index 0, 2 and 5
> Elements from B were detected 4 times in A

Intenté con el siguiente código pero no consigo entender como comparar los
elementos entre los dos arrays y determinar las posiciones
foreach $x (@A){
    foreach $y (@B){
    if ($y eq $x){
    print "$y\n";
	}
	elsif ($x ne$y){
    print "$x";
	}
  }
}

Alguna idea? Muchísimas gracias por vuestra ayuda y hasta pronto!