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