my @array1 = (1, 2, 3, 4, 5); 
my @array2 = (2, 4, 6, 8, 10); 
my %hash = map {$_=>1} @array2; 
@array1 = grep { not exists $hash{$_} } @array1;
print "@array1\n";