while( my $file = ) { # do stuff }