Select Code to Download

use strict;
use warnings;
...

print "$answeredCount,".($queryCount-$answeredCount)."\n";

$connected{firstSet}{$n1}=1; # or better $connected{1}{x}=1;
$connected{secondSet}{$n1}=1; # or better $connected{2}{x}=1;