What does the following code do and why does it work (assume the arrays @A and @B exist):
my %s;
my @answer;
@s{@B} = ();
for (@A) { push(@answer, $_) unless exists $s{$item}; }
--
Don't Stand on your head - you'll get footprints in your hair
http://charlieharvey.org.uk
http://charlieharvey.com