#!/usr/bin/perl
my @list=(qw/zero one two three four five six seven eight nine/);
print "give the input:";
my $in=<STDIN>;
print "$list[$in]\n";