Select Code to Download

use strict;
use IO::File;
...

# print sorted main db
print "@{$main_data{$_}{data}}\n" foreach @sorted_id;

mainfile.txt
------------
...
--------
10      120.00
11      200.00

C D 11
E F 10
A B 12