my %array1=map{$_ =>1} @array1;
my %array2=map{$_=>1} @array2;
my @differences=grep(!defined $array1{$_}, @array2);

foreach $difference (@differences) {
	$differences++;
	print "$difference \n";
}