alternative way if the number of dirs you expect is huge ; no iterator required :) nothing returned because $Vol discards ...

#!/usr/bin/perl --
use strict; use warnings;
use File::Find::Rule qw/ find rule /;

find(
    directory =>
    maxdepth => 1 ,
    exec => sub {
        Voltronize($_);
        return !!0; ## means discard
    },
    in => [ 'antarctica' ],
);
[download]