my @array1 = ("q", "w", "e", "r", "t", "z");
my @array2 = ("q", "w", "e", "r", "t", "y");

my %hash;
@hash{@array2} = () x @array2;
my @not_there = grep { ! exists $hash($_} } @array1;