printf "%${max_length_generation}s: %${max_length_children}s %s\n",$_,commify($generations{$_}),$generations{$_}/$generations{max($_-1,1)}; #### my @distribution=(0,0,1,1,1,2,2,2,2,3,3,4,5); #### my $children = $distribution[rand(@distribution)]; # instead of my $children = int(rand(6));