#!/usr/bin/perl

use strict;
use warnings;

print( "Enter a number: " );
chomp( my $input = <STDIN> );
print( number_return($input) );



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

BEGIN {
   my @numbers = qw( zero one two three four five six seven eight nine );

   sub number_return {
      my $answer = shift(@_);
      # Insert error checking here.
      return $numbers[$answer];
   }
}