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