$ perl -e '%h = (1, 1, 1, 1); print scalar keys %h, "\n"'
1