print @$x && !grep({ref($_) ne 'HASH'} @$x),"\n";

##</code><code>##

print @$x && @$x == grep({ref($_) eq 'HASH'} @$x),"\n";