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