$ perl -MO=Deparse -e 'while (@d) {}'
while (@d) {
    ();
}

$ perl -MO=Deparse -e 'while (<@d>) {}'
use File::Glob ();
while (defined($_ = glob(join($", @d)))) {
    ();
}