@sorted = 
map {$_->[0]}
sort { $a->[1] <=> $b->[1] }
map { [$_, /^file(\d+)\.csv$/]}
@files;