open(FILE, "<", $filename) or die $!;

foreach my $line (sort <FILE>) {
    print $line;
}
close FILE;