my @lines = sort{$a cmp $b}<$fh>;