use Array::Utils qw(:all);

$file = 'single.txt';
open(FILE,$file);
@array= <FILE>;
#print @array;
$file1='single1.txt';
open(FILE1,$file1);
@array1=<FILE1>;







@d=@array1;
@c=@array;
print @d;
print @c;


        # symmetric difference
        @diff = array_diff(@a, @b);

        # intersection
         @isect = intersect(@c, @d);
		#print @isect;
        
        # unique union
        @unique = unique(@a, @b);
		#print @unique;

        
        # check if arrays contain same members
        if ( !array_diff(@a, @b) ) {
                # do something
        }
        
        # get items from array @a that are not in array @b
        @minus = array_minus( @c,@d );
		
		print  "\n difference";
		print  @minus;