sub createNP{

  my(@adjp);
  my $counter = 0;
  while ($counter < 100)
  {
    my $outerRN = int(rand(5)+1);		
    if ($outerRN == 1)
    {
      my $innerRN = int(rand(2)+1);
      if ($innerRN == 1)