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