Try

sub remap_anon {
  return {qw(
    THIS THAT
    BLACK WHITE
    TALL SHORT
   )}->{$_[0]};
}
[download]

There you're creating an anonymous hash, populating it with the list and dereferencing the result, simple as that!
HTH

_________
broquaint