while ( defined defined defined defined defined( my $file = readdir $dh ) ) {