#!/usr/bin/perl

use strict;
use List::Compare;

my @temp = ( 'test', 'test1', 'test', 'test2', 'test2', 'test' );
print "----------------------\nContents of Temp Array\n";
print "\t", $_, "\n" foreach (@temp);

my @temp2 = ( 'test1', 'test2', 'test2' );
print "----------------------\nContents of Temp2 Array\n";
print "\t", $_, "\n" foreach (@temp2);

my $lc = List::Compare->new('--unsorted', \@temp, \@temp2);

my @intersection = $lc->get_intersection;
print "----------------------\nThe (Unique) Intersection of Temp and Temp2 Arrays\n";
print "\t", $_, "\n" foreach (@intersection);

exit;

##</code><code>##

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);

##</code><code>##

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);

##</code><code>##

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);