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

##</code><code>##

    grep { $_ eq $name } @name and return $name;

##</code><code>##

    grep { $_ eq $name } @$name and return $name;