use DBI;
...


$self->connectdb(connection => "./db/nr1.db");
$self->createtable(table => $joinTable,
                   form => $form1);
                          
my $insert = "insert into GITAXNR(gi,ID,quest) select GITAX.gi, GITAX.ID, NRP.quest from GITAX inner join NRP on GITAX.gi = NRP.gi";
$self->do_it(argument => $insert);

##</code><code>##

 
   
    for(my $j = 1; $j<=4; $j++){

    	unless($j == 1){ 
    		
        my $database = "attach database './db/nr$j.db' as nrdb$j";
        $self->do_it(argument => $database);

        my $insert = "insert into GITAXNR(gi,ID,quest) select GITAX.gi, GITAX.ID, NRP.quest from GITAX inner join nr$j.NRP on GITAX.gi = NRP.gi";
    	  $self->do_it(argument => $insert);

}
}

##</code><code>##

insert into GITAXNR(gi,ID,quest) select GITAX.gi, GITAX.ID, NRP.quest from nr1.GITAX inner join nr2.NRP on GITAX.gi = NRP.gi