Select Code to Download

   map  { $_->[0] }
   sort { $a->[1] cmp $b->[1] }
...
          $y += y >= $cutoff ? 1900 : 2000;
          [ $_, sprintf('%04d/%02d/%02d', $y, $m, $d) ]
        }

   map  { substr($_, 10) }
   sort
...
          sprintf('%04d/%02d/%02d', $y, $m, $d) . $_
        }