#!/usr/local/bin/perl -w
use strict;
my @a=(9,8,1);
my (@names,@name_nums);

@names=name_nums(@a);
print "@names";

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