#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