sub createNP{
    my(@adjp);
    while ((my $counter = 0) < 100)