@sorted = sort { substr($a, 7, 5) cmp substr($b, 7, 5) } @unsorted;