foreach my $key ( sort { ... } keys %lineFinal) {
   ...
}