Look at this:
--------------------------------------
The code is:
(Sorry for any inconvenience about previous code I paste)

#!/usr/bin/perl

use warnings;

#Chapter 3, Exercise 2
@name = qw / fred betty barney dino Wilma pebbles bamm-bamm /;
@getnum = map {chomp; $_} <STDIN>;
foreach $num(@getnum) {
    print "\nNo".$num."\tname:".$name[${num}-1]."\n";
}
[download]

--------------------------------------

If I input like this:

2
3
Ctrl^Z

It works well.
But if like this:

asd
xc
Ctrl^Z

It print a warning:


Argument "asd" isn't numeric in subtraction (-) at ......\Untitled1.cgi line 9, <STDIN> line 2.

Noasd name:bamm-bamm
Argument "xc" isn't numeric in subtraction (-) at ......\Untitled1.cgi line 9, <STDIN> line 2.

Noxc name:bamm-bamm


Then, my question is how can I print my array even I give a alpha string withou warnings? Thanks.