#!/usr/bin/perl -w
print "Please enter a number : ";
chomp($in1 = <>);
print "Please enter another number : ";
chomp($in2 = <>);
$conv1 = n2t($in1);
print "\u$conv1 plus " . n2t($in2);
print " equals " . n2t($in1 + $in2) . ".\n";

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