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

while (@rFiles and sleep 15) {
    -e $rFiles[$_] and splice @rFiles, $_, 1 for reverse 0..$#rFiles;
}
print "All done";