sub some_key { keys %{$_[0]} ? scalar each %{$_[0]} : undef }

##</code><code>##

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