Select Code to Download

my @unsorted = qw(
                864278_864377
...
                791806_792296
               1088806_1082296
);

use Data::Dumper;
print Dumper(\@sorted);