number birth, eo_boyhood, beard, marriage, son, son_dies, death, life; constraints { eo_boyhood - birth = life / 6; beard = eo_boyhood + life / 12; marriage = beard + life / 7; son = marriage + 5; (son_dies - son) = life / 2; death = son_dies + 4; life = death - birth; } draw { &dump_all; } __END__ use Data::Dumper; sub dump_all { my $h = shift; print Dumper($h); # for my $var (sort keys %$h) { # print "$var = $h->{$var}\n"; # } }