my @sorted = sort { substr($a, 0, 4) <=> substr($b, 0, 4) } @unsorted;