while (1) {
    ....#check drive freespace
    my $low = @lowDrives > 0 ? join(' and ',lowDrives) : No';
    next if ($low eq 'No'); ## <<< PROBLEM HERE!
    ....
    sleep 2 *3600;
    ....
}