It appears to add a defined even without angle brackets, if you use glob(). I don't know if this means anything.

> perl -MO=Deparse -e "while(glob('*')){ print }"
use File::Glob ();
while (defined($_ = glob('*'))) {
    print $_;
}
-e syntax OK
[download]