@names = qw/ fred betty barney dino wilma peblles bamm-bamm /;
chomp(@list = <STDIN>);

foreach (@list)
{
print "$names[ $_ - 1 ]\n";
}