Select Code to Download

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

my %name;
my @name;