#!usr/bin/perl

my %numbers = qw(
0 zero
1 one
2 two
3 three
4 four
5 five
6 six
7 seven
8 eight
9 nine
 );
my $input;
my $key;

print "Enter your number\n";
chomp ($input = <STDIN>);
print $numbers{$input} . "\n";