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