Your program works, but with the following restrictions:

• You have to enter a single number on each input line.
• Your program first reads ("slurps") the whole input stream, before going on to processing. Press Ctrl-D on an empty line when you're done with input (on Windoze, you may have to type an additional Enter IIRC).

Keep in mind that the elements of @list in your progam are lines, not necessarily numbers. Here's another approach that is more flexible with input format. You can separate numbers with commas, spaces etc. Also, input is processed ASAP (after each line, buffering permitting) :

my @names = qw/ fred betty barney dino wilma peblles bamm-bamm /;

while(<STDIN>) {
        print $names[$_ - 1], "\n" for grep {$_ <= @names} m/\d+/g;
}
[download]