push @someArray, int(rand $tot) for(1 .. $x);