Select Code to Download

  print "$$_[0]\n" for
    sort { $$a[1] cmp $$b[1] }
...
      $padd =~ s/(\d+)/sprintf '%06d', $1/ge;
      [ $_ , $padd ];
    } @list;