my @sorted = sort { substr ($a, 5, 10) <=> substr ($b, 5, 10) } @array;