Select Code to Download

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

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

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