Re^2: map and grep or clear code?

[ghenry]

I think I prefer yours and 950927:

my %map = ( ... );
$map{$_} = $_ for 0..9;

my $numeric =
    join '',
     map $map{$_}, 
      split //, uc($word);

say $numeric;