FOR: foreach my $F($DB_PRI{FILE},$DB_OGGI{FILE}) {
	open(DB,"<$F") || &ERROR('CANNOT OPEN 1325');
	my $line = <DB>; # this line frees the following while
	while(my $ln = <DB>) {
            ...