第三章：列表和数组

1)
use warnings;
#chomp (@lines = reverse <STDIN>);
#chomp (@lines=<STDIN>);
#@lines = reverse @lines;
#@lines = reverse <STDIN>;
#print @lines;
print reverse <STDIN>;

2)
use warnings;
@names = qw /fred betty barney dino wilma pebbles bamm-bamm/;
chomp(@num = <STDIN>);
#foreach $num (@num){
# print @names[$num -1], "\t";
#}
foreach (@num){
 if ($_ > 7){
  print "The number you entered must less than 8.\n"
  #break;
 }
 print @names[$_ -1], "\t";
}

3)
use warnings;
@strings = sort <STDIN>;
foreach (@strings){
 print $_; #print sort <STDIN>;
}
foreach (@strings){
 chomp $_;
 print $_,"\t";
}