Help for this page
#!/usr/bin/perl -w use strict; ... foreach my $number (@numbers) { print "My number is ", $number_to_word{$number} || 'four', "\n"; }