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