my @dirs = grep -d, </antarctica/*>;
for my $dir (@dirs) {
  chdir($dir) or die "Failed to chdir to $dir: $!";
  execute_something();
}