perl -e '$_[0]={1,1,2,2};keys %$_[0]'     # no
perl -e '$_[0]={1,1,2,2};print ref $_[0]' # wtf
HASH