sub c{
($_,$a)=@_;s!.!chr($h{$&}||=($a=~/./g,ord$&))!ge;$_
#23456789_123456789_123456789_123456789_123456789_1
}

##</code><code>##

sub c{
($_,$a,%h)=@_;s!.!chr($h{$&}||=($a=~/./g,ord$&))!ge;$_
#23456789_123456789_123456789_123456789_123456789_1234
}