my @want = map{ "@start[ $_, ( shuffle 0 .. $_-1, $_+1 .. $#start )[ 0 .. 2 ] ]" } 0 .. $#start;