for my $folder (@dirs) 
{ 
opendir(DIR, $folder )) 
my @files = readdir(DIR); 
closedir(DIR); 
. 
#files berarbeiten 
. 
}