sub createNP{
  my(@adjp);

  while ((my$counter = 0) < 100)
  {
    $randnum = int(rand(5)+1);		
    if ($randnum == 1)
    {
      $randnum = int(rand(2)+1);
      if ($randnum == 1)