$ perl -le' my %x = qw/ one two three four five six seven eight /; print ${ { reverse %x } }{ six }; ' five