一行代码解决 perl 出入，排序，输出

1.基本的方法

chomp ( @strings = <STDIN> ) ;  

@strings = sort   @strings ;  

print   "@stringsn." ;

2.一行代码

print sort<STDIN>;