Select Code to Download

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

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