my  @DIRS=qw(there notthere there);
foreach (@DIRS)
{
    if (-d $_)
    {
        # Do the task. 
    }
    else
    {
        warn "File not found\n";
    }
}