use strict;
use warnings;
my @translation = qw / Zero One Two Three/;

sub test2 {
    return $translation[(substr shift, 0, 1)];
}
print test2("1.00.000");