For the request in the Update - non unique leftovers. Make changes to the function calls (refer to my previous post)

my (@non_unique_temp,@non_unique_temp2) ;
(!in_array($_,\@temp)) && (push @non_unique_temp2, $_)  for (@temp2);
(!in_array($_,\@temp2)) && (push @non_unique_temp, $_)  for (@temp);

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

And here is the unique leftovers.

my (@unique_temp,@unique_temp2) ;
(!in_array($_,[@temp, @unique_temp2])) && (push @unique_temp2, $_) for
+ (@temp2);
(!in_array($_,[@temp2,@unique_temp])) && (push @unique_temp, $_) for (
+@temp);
[download]