#!/usr/bin/perl -w
use strict;

my %name2num =
   ('zero' => 0, 'one' => 1, 'two' => 2, 'three' =>3);
   
my @text = qw ( two three zero one);

foreach my $name (@text)
{
   print "$name means $name2num{$name}\n";
}
__END__
two means 2
three means 3
zero means 0
one means 1