Select Code to Download

my @sorted = sort {
    ($a =~ /(\d+)\D*$/)[0] <=> ($b =~ /(\d+)\D*$/)[0]
  } @filenames;

use Sort::Key qw(isortkey);

my @sorted = isortkey { /(\d+)\D*$/; $1 } @filenames;