Select Code to Download

@sorted = sort { substr($a, 7, 5) cmp substr($b, 7, 5) } @unsorted;

@sorted = 
   map { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
   map { [ $_, substr($_, 7, 5) ] }
         @unsorted;