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