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



##</code><code>##

$ perl -E'$_[0]={1,1,2,2};say keys %{$_[0]}'   # ttf°
21
$