while (keys %children >= $max) {

}