Select Code to Download

#!/usr/bin/perl -w

use strict;
...
foreach my $number (@numbers) {
  print "My number is ", $number_to_word{$number} || 'four', "\n";
}