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