sub name { my $name = shift; exists $name{$name} and return $name{$name};