#!/usr/bin/perl -w

use strict;

my %number_to_word = (
  1 => 'one',
  2 => 'two',
  3 => 'three',
);

my @numbers = qw(1 2 3 4);

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