print join " ", sort { $a - $b } 1, 3, 2, 5, 4;