[prog] Perl code

[Noir]

Can anyone tell me what's wrong with the following
code?

#!/usr/bin/perl -w
@names = qw#fred betty barney dino wilma pebbles
bamm-bamm#;
print "Enter number:  \n";
chomp (@number = <STDIN>);
foreach (@number) {
    print "$names [ $_ - 1 ]\n";
}

Input: 1 2 3
Output (after ctrl-d): fred betty barney


	
	
		
___________________________________________________________ 
ALL-NEW Yahoo! Messenger - all new features - even more fun! http://uk.messenger.yahoo.com