my $tr = eval "sub { tr/\Q$oldlist\E/\Q$newlist\E/ }" or die $@;

&$tr for $things, $that, $i, $want, $to, $transliterate;