foreach (sort {$a <=> $b} @arr) {... }