sub name { my $key = ${+shift}; $name {$key} = shift if @_; $name {$key}; }