print each %h;;
a 1

print scalar each %h;;
a