if ( -s $file ) { print "\n Hole aus : $file\n"; open(DATEI,"<$file") or die $!; @adressen = ; close DATEI; } foreach $elem (@adressen) { foreach $elem2 (@sel_ids) { ## array with id's to process if ( $elem =~ $elem2 ) { ## hier Erhoehung des counters in $elem und neue timestamp } } }