http://qs1969.pair.com?node_id=199207

johnirl has asked for the wisdom of the Perl Monks concerning the following question:

Hey Monks
For some reason I am unable to wrap my head around this problem today. What I need to do is locate all elements in array 1 that are not in array2.
@array1 = ("q", "w", "e", "r", "t", "z"); @array2 = ("q", "w", "e", "r", "t", "y"); OUTPUT: ------- Value z does not match any value in @array2

My Effort

my $array1_size = scalar(@array1); my $array2_size = scalar(@array2); for(my $i = $array1_size; $i > 0 ; $i--) { for (my $j = $array2_size; $j > 0 ; $j--) { if ($array1[$i] eq $array2[$j]){ pop @array1; pop @array2; $j--; $i--; $array1_size--; $array2_size--; } } }
Thanks to all in advance.

Ever have one of those days?
j o h n i r l .

 Sum day soon I'Il lern how 2 spelI (nad tYpe)