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); } }