my @ary5 = grep( ( not $hash{$_} ), @array);  # OK