% perl -le '$b={foo=>1}; $#a=$b; print keys %{$#a}'
   foo