#!/usr/bin/perl -w
print "Please enter a number between 1 and 9 (inclusive) : ";
chomp($in = <>);
$out = num2text($in);
print "The value is $out\n";

sub num2text
{
	@convert = qw(one two three four five six seven eight nine);
	if($_[0] <= 9 && $_[0] >= 1) {return $convert[$_[0] - 1]}
	else {return $_[0]}
}