{
    my $remap = { qw(
                  THIS THAT
                  BLACK WHITE
                  TALL SHORT   
                  ) };

    sub remap_closure {
        exists $remap->{ $_[0] } ?
            $remap->{ $_[0] }    :
            undef;
    }
}