The depth is only 1, I don't need to go deeper than /antarctica/*

No need for File::Find then:

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