sort排序(以ASCII码顺序输出列表)

#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=<STDIN>);
@ascii=sort(@lines);
print "@ascii\n";