1. 讀入一些字符串（每行一個）畔柔，直到文件結(jié)尾蜈块。然后四康，以相反的順序輸出這個列表奶浦。
#!/usr/bin/perl
@lines = <STDIN>;
@lines = reverse @lines;
print @lines;
2. 讀入一些數(shù)字（每行一個），直到文件結(jié)尾烛亦。然后射富，根據(jù)數(shù)字的順序輸出人名（人名是事先在代碼中定義好的）解虱。
#!/usr/bin/perl
@names = ("Tom", "Sandy", "Linda", "Lilei", "Kitty");
@lines = <STDIN>;
foreach $line (@lines) {
print "$names[$line]\n";
}
3. 讀入一些字符串（每行一個）费变，直到文件結(jié)尾摧扇。然后以ASCII碼的順序輸出這些字符串，以同行和換行兩種方式輸出挚歧。
3.1 同行輸出
#!/usr/bin/perl
#@lines = <STDIN>;
chomp( @lines=<STDIN>);
@lines = sort @lines;
foreach $line (@lines) {
print "$line\t";
}
print "\n";
3.2 換行輸出
#!/usr/bin/perl
@lines = <STDIN>;
@lines = sort @lines;
print @lines;
