sub processGraph { print "Total node count = " . $graph->nodecount() . "\n"; print "Total edge count = " . $graph->edgecount() . "\n"; my $nodes = $graph->get_nodes(); my $thr_count = 0; foreach my $node (@$nodes) { my $thr = threads->new(\&calcFoo, $graph, $id, $node); } }