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