my &check = { (.[0], .[1] ... *)[^$_] eqv @$_ }
get; my @a = +<<words; say first({!!first(&check, @a.rotor($_ => 1-$_))}, (2..@a), :end) || 1