my %name; my @name; sub name { my $name = shift; exists $name{$name} and return $name{$name}; grep { $_ eq $name } @name and return $name; return "invalid"; } # name