while (defined(my $subdir = glob 'antarctica/*')) {
    next unless -d $subdir;
    chdir $subdir;
    for ...
    chdir '../..';
}