in reply to simple letter substitution according to hash

In perl6 you'll be able to do this: 

$mes.=trans(%codewheel);

[download]
(trans is the function name for the tr/// operator in perl6)

duff

In Section Seekers of Perl Wisdom