my $j = shift @$rand;

##</code><code>##

     my $j = int rand ($i+1);