my &f = { first(!*, ((.[0], .[1] ... *) Z== $_), :k) || +$_ }
get; my @a = +<<words; say max map({ f(@a[$_..*]) }, ^@a)