#!/usr/local/bin/perl -w
use strict;
my @a=(1..99);
my (@names,@name_nums);
@names=name_nums(@a);
print "@names";

sub name_nums {
	my (%list,@name_nums,$this_num, @input);
	@input=@_;
	@list{1..9}=qw(one two three four five six seven eight nine);
	foreach (@input){
		if (exists $list{ $_ }){
			push @name_nums, $list{ $_ };
		}else{
		    push (@name_nums,$_);
		}
	}
return @name_nums;
}