for my $letter ( split // => $phrase ) { 
         $sum += $numeral{$letter} || 0; 
 }