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

##</code><code>##

my %name;
my @name;