sub calcFoo {
        my ($graph, $id, $node) = @_;
        bless $graph;
        print "$graph\n";
        print "Total node count = " . $graph->nodecount() . " in thread\n";
}