sub makeLinks {
    ...
    my @nholes = (); 
    for my $nh ($obj->{'board'}->getHoles()) {
        push ( @nholes, new hole ( $nh->{'peg'}, $nh->{'holeIndex'}, $nh->{'level'}, $nh->{'links'} ));
    }
    ...
}