#!/usr/bin/perl
open F, $ARGV[0] or die "Usage $0 infile > outfile\n";
@ary = <F>;
close F;
print for sort @ary;