diff --git a/test/run_qemu_migrate_tests.pl b/test/run_qemu_migrate_tests.pl
index 3a3049d7..bbba5f97 100755
--- a/test/run_qemu_migrate_tests.pl
+++ b/test/run_qemu_migrate_tests.pl
@@ -1532,10 +1532,7 @@ my $tests = [
 my $single_test_name = shift;
 
 if (defined($single_test_name) && $single_test_name eq 'DUMP_NAMES') {
-    my $output = '';
-    foreach my $test (@{$tests}) {
-	$output .= $test->{name} . ' ';
-    }
+    my $output = join(' ', map { $_->{name} } $tests->@*);
     print "$output\n";
     exit 0;
 }