require "./baza.pl";  ############# Подключение к БД

$tab1 = 'n9n1';

$tab2 = 'n9n2';



$dbh->do("SET autocommit=0"); ############## Запрос к БД



$s = "SELECT * FROM $tab1 where sovpalo=10"; ################## Ещё запрос
$sth = $dbh->prepare($s);  ###############
$sth->execute;  ############



   
while (@r = $sth->fetchrow_array){ ################### Цикл по запросу
  
  @a = split /_/, $r[1]; ######################### Вытягиваем числа в массив с 1 столбца, не с 0-го! 

  print "$r[0]\n";


  $s2 = "SELECT * FROM $tab1 where str1=$r[5] or str2=$r[5]"; ## Второй запрос внутри первого
  $sth2 = $dbh->prepare($s2); ############Нам интересны только строки в которых упоминается наша строка
  $sth2->execute;
  while (@r2 = $sth2->fetchrow_array){########## Цикл по запросу
    next if $r2[0] <= $r[0];                     ########### Строки только больше строки первого запроса
    
    
    @b = (); %isect = (); %inion = ();  ####### Это и ниже - для сравнения количества совпадений
    @b = split /_/, $r2[1];
    for $e (@a, @b) {$inion{$e}++ && $isect{$e}++;}
    @isect = keys %isect;
    $is = scalar(@isect);

    if($is > 8){ ######################## Только если количество совпадений больше или равно 9
      $r = join('_', sort {$a<=>$b} @isect ); ################   Сортировка  
      
      $dbh->do("INSERT INTO $tab2 VALUES (null, '$r', '$r[4]-$r[5]-$r2[4]-$r2[5]', $is)"); ########### запись в новую таблицу

    }
     

    }
  }

$dbh->do("COMMIT");       ############## Запрос к БД. Пишем всё.

   

$sth->finish; ############ Прибираемся и рвём соединение
$sth2->finish;
$dbh->disconnect;