I think I'd probably want to precompile too if this was to be used repeatedly.

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

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