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