while (my $a = readdir(DIR)) {
  ...
}