for ( sort <$fh> ) {
    my @fields = ...;
    ...
}