In general, a good way to translate one "thing" to another "thing" is with a hash table.

Below name2num is a hash table. The key is the name, like "one" and the value is a number like "1". I leave it to you to do some more typing of the digits 4-9, but this will be fast and work well.

#!/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
[download]