Select Code to Download

my @unsorted = (
    'A 00006360 A001054054 000000000.00',
    'A 00006360 A001002002 000000000.00', 
...
my @sorted = sort @unsorted;

print "$_\n" for @sorted;