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