my $offset = splice @cPosns, rand @cPosns, 1;