for $x ("windows", "sheep", "etc") {
  if (-d $x) { print "Found directory: $x\n"; }
}