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