sort { substr($a, 6,2) <=> substr($b, 6,2)} @array #### sort { substr($a, 6) <=> substr($b, 6)} @array