$_ = 'Hello World';

my %h = ( e => 'b', l => 'd', );

my $f = join '', keys %h;
my $t = join '', values %h;

eval "y/$f/$t/";
print
__OUTPUT__
Hbddo Wordd