Select Code to Download

open my $fh, '-|', 'sort', $filename or die;
chomp(my $line = <$fh>);
...
  }
}
print "$prev_key,,$prev_value\n";