Sort::Naturally

Or roll your own with a Schwartzian transform:

print "$_\n" for map {$_->[1]}
                 sort { $a->[0] <=> $b->[0] }
                 map {[/(\d+)/, $_]} @files;
[download]

or make it work a little harder in the sort routine:

print "$_\n" for sort {
      my ($ad, $bd) = map /(\d+)/, ($a, $b);
      $ad <=> $bd
} @files;
[download]