@r= (); $M = 1e6; $N = 4; ++$r[ $M % $N ] while $M--; print "@r";; 250000 250000 250000 250000