while ($taxId = $taxId1){ my $parent = `getz "[taxonomy:$taxId1]" -f pid`;