sub remap {
    my %remap = qw{
THIS THAT
BLACK WHITE
TALL SHORT
};
    $remap{ $_[0] };
}

##</code><code>##

sub remap_anon {
    @{[qw{
THIS THAT
BLACK WHITE
TALL SHORT
}]}->{$_[0]};
}