A simple foreach question

[newperl]

Hi, I am learning perl and hit a snag! I was hoping someone could help me with this really simple question. I am trying to make a program that takes in a list of numbers as input, and each number represents the corresponding name in my @name array. So if I put in 2 3 4, i should get betty barney dino as my output. But right now I only get fred as my output. It does not run through the entire list! Why is that? Did I code something wrong? Thanks

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

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