diff --git a/egs/wsj/s5/steps/info/chain_dir_info.pl b/egs/wsj/s5/steps/info/chain_dir_info.pl
index b7de761f091..4212e147a85 100755
--- a/egs/wsj/s5/steps/info/chain_dir_info.pl
+++ b/egs/wsj/s5/steps/info/chain_dir_info.pl
@@ -40,9 +40,7 @@ sub list_all_log_files {
   my @ans = ();
   my $dh;
   if (!opendir($dh, "$nnet_dir/log")) { return (); }
-  while (readdir $dh) {
-    push @ans, $_;
-  }
+  @ans = readdir $dh;
   closedir $dh;
   return @ans;
 }
diff --git a/egs/wsj/s5/steps/info/gmm_dir_info.pl b/egs/wsj/s5/steps/info/gmm_dir_info.pl
index 8603dbdf318..e0f386f8e1a 100755
--- a/egs/wsj/s5/steps/info/gmm_dir_info.pl
+++ b/egs/wsj/s5/steps/info/gmm_dir_info.pl
@@ -41,9 +41,7 @@ sub list_all_log_files {
   my @ans = ();
   my $dh;
   if (!opendir($dh, "$gmm_dir/log")) { return (); }
-  while (readdir $dh) {
-    push @ans, $_;
-  }
+  @ans = readdir $dh;
   closedir $dh;
   return @ans;
 }
diff --git a/egs/wsj/s5/steps/info/nnet2_dir_info.pl b/egs/wsj/s5/steps/info/nnet2_dir_info.pl
index ce8a870db0f..6ef10a2e03d 100755
--- a/egs/wsj/s5/steps/info/nnet2_dir_info.pl
+++ b/egs/wsj/s5/steps/info/nnet2_dir_info.pl
@@ -40,9 +40,7 @@ sub list_all_log_files {
   my @ans = ();
   my $dh;
   if (!opendir($dh, "$nnet_dir/log")) { return (); }
-  while (readdir $dh) {
-    push @ans, $_;
-  }
+  @ans = readdir $dh;
   closedir $dh;
   return @ans;
 }
diff --git a/egs/wsj/s5/steps/info/nnet3_dir_info.pl b/egs/wsj/s5/steps/info/nnet3_dir_info.pl
index 07acf3aac39..89b4c398d46 100755
--- a/egs/wsj/s5/steps/info/nnet3_dir_info.pl
+++ b/egs/wsj/s5/steps/info/nnet3_dir_info.pl
@@ -40,9 +40,7 @@ sub list_all_log_files {
   my @ans = ();
   my $dh;
   if (!opendir($dh, "$nnet_dir/log")) { return (); }
-  while (readdir $dh) {
-    push @ans, $_;
-  }
+  @ans = readdir $dh;
   closedir $dh;
   return @ans;
 }