my @non_unique_Lonly = @temp;
for (my $i=0;$i<scalar(@non_unique_Lonly);$i++){
  delete $non_unique_Lonly[$i] if ( grep $_ eq $non_unique_Lonly[$i], @non_unique_intersection );
} # end-for
print "----------------------\nThe Non-Unique Leftover from Temp\n";
print "\t", $_, "\n" foreach (@non_unique_Lonly);