@sorted = sort @unsorted

##</code><code>##

my @unsorted = (
    'A 00006360 A001054054 000000000.00',
    'A 00006360 A001002002 000000000.00', 
    'A 00006360 A001012012 000000000.00',
    'A 00005460 A001102002 000000000.00',
    'A 00007360 A003015015 000000000.00');

my @sorted = sort @unsorted;

print "$_\n" for @sorted;