Select Code to Download

#!/usr/bin/perl

...
print "\t", $_, "\n" foreach (@intersection);

exit;

my %temp=map{$_ =>1} @temp;
my %temp2=map{$_=>1} @temp2;
my @non_unique_intersection = grep( $temp{$_}, @temp2 );
print "----------------------\nThe Non-Unique Intersection of Temp and
+ Temp2 Arrays\n";
print "\t", $_, "\n" foreach (@non_unique_intersection);

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

my @non_unique_Lonly = @temp;
my @temp_intersection = @non_unique_intersection;
...
} # end-for
print "----------------------\nThe Non-Unique Leftover from Temp\n";
print "\t", $_, "\n" foreach (@non_unique_Lonly);