#!/usr/bin/perl
open(INFO,"$ARGV[0]");
@array=<INFO>;
close (INFO);
@sortedarray=sort(@array);
foreach $line(@sortedarray){
print "$line";
}