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