sub some_key { keys %{$_[0]}; scalar each %{$_[0]} }