#usr/bin/perl

 use strict;
 use warnings;

my $input;

print "Enter a number\n";
chomp($input = <STDIN>);
print &number_return ($input);



##sub_routines################################ 


sub number_return {

my $answer = shift(@_);
my @numbers = (1,2,3,4,5,6,7,8,9);
my @words = ("one","two","three","four","five","six","seven","eight","nine");
my $i = 0;
my $sum;

	
 while ($answer <= 9) {
	if ($answer eq $numbers[$i]) {
		$answer = $words[$i];
		$i++;
		$answer;
				
	} else {
		#print $answer;
	} # end if

 } # end while 

} # end sub 
	
	
##</code><code>##

#!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";