Select Code to Download

sub remap {
    my %remap = qw{
...
};
    $remap{ $_[0] };
}

sub remap_anon {
    @{[qw{
...
TALL SHORT
}]}->{$_[0]};
}