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));