my @dirs = qw[  ... ];
my @rFiles = map{ "$_/analysis_completed" } @dirs;

while( @rFiles and sleep 15 ) {
    -e $rFiles[ $_ ] and splice @rFiles, $_ for 0 .. $#rFiles;
}

print "All done";