for my $next (@ARGV){
  opendir(PWD, "$next") or die "$next: $!";
  my @files = readdir(PWD) or die "$next: $!";
  closedir(PWD);

  print join("\n", @files), "\n";
}

##</code><code>##

for my $next (@ARGV) {
    opendir(PWD, "$next") and do {
        my @files = readdir(PWD) or die "$next: $!";
        closedir(PWD);
        print join("\n", @files), "\n";
    }
}