my $j = shift @$rand;