perl -wle'%h=%ENV; print ~~%h; keys %h = 1000; print ~~%h'