while ( while my $file = glob('*') ) {
   #...
}