Select Code to Download

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