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