Help for this page
sub new { my ($pkg, $holes, $level) = @_; ... }, $pkg; return $obj; }
$holes->[$i] = new hole( ( $i == 4 ) ? 'white' : 'black' , $i, $holeLe +vel );