Select Code to Download

$line_data{"9/10 @ 12:45 PM"} = "some superfluous data here";

foreach $key (sort (keys(%line_data))) {
 print "$key   $line_data{$key}\n";
}