Re: Compare Lists (Non Unique Intersection)

[Mandrake]

Makes me think in this way. Not sure if I miss anything.

my @non_unique;
(in_array($_,\@temp)) && (push @non_unique, $_)  for (@temp2);

sub in_array {
   ($_ eq $_[0]) && (return $_) for (@{$_[1]})  ;
}

Thanks.