$ perle 'my %x = qw{0 a 1 b 2 c}; say "$x{0}$x{1}$x{2}"' abc