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]})  ;
}
[download]

Thanks.