sub by_id {
    # extract numbers
    my ($A) = $a =~ /(\d+)/;
    my ($B) = $b =~ /(\d+)/;
    # return comparison
    return $A <=> $B;
}

for my $f (sort by_id @files) {
    say $f;
}