Select Code to Download

@array =
   sort {
...
      $digits_from_b <=> $digits_from_a
   }
   @array;

@a = sort { ($b =~ /(\d+)\z/)[0] <=> ($a =~ /(\d+)\z/)[0] } @a;