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

chomp(@strings=<STDIN>); 
@strings=sort @strings; 
print "@strings/n.";

print sort<STDIN>;