for ($i=1; $i < $rs_anzahl+1; $i++) {

$sql=qq{select count(researchfront_$i.rec_id) as rec_nr, item
from countries, par_add, add_rec, researchfront_$i
where par_add.cou_id=countries.cou_id and par_add.add_id = add_rec.add_id
and add_rec.rec_id=researchfront_$i.rec_id group by item order by rec_nr desc};
$sth=$dbh->prepare($sql);
$sth->execute();
#print"SQL=$sql\n";
while (@ary=$sth->fetchrow_array) {
        print "$ary[0]\t$ary[1]\t $i\n";
        $sql=qq{insert into laender_index (rec_nr, land, rs_nr) values ('$ary[0]',
        '$ary[1]', '$i')};
        $sth=$dbh->prepare($sql);
        $sth->execute();

}
print "nächstes rs:\n";
}