Select Code to Download

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

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