Help for this page
my $w= 2; my $i= int( rand @list ); ... my $j= abs( $i + $offset ); $j= @list - $j if @list <= $j;