my @out = ([grep !exists $h2{$_}, @array1]);

##</code><code>##

my @out = (grep !exists $h2{$_}, @array1);