for (my $n=1;$n<=$neighboorCNT;$n++) {
      if ($neighborEdges->{$n}) {