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

##</code><code>##

sub createNP{
    my(@adjp);
    my $counter=0; # sometimes $counter=1 as u do so inside the while loop
    while (($counter) < 100)