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