diff --git a/tools/viewlog.pl b/tools/viewlog.pl
index 9f68a8ae5a..e526c1ff9f 100755
--- a/tools/viewlog.pl
+++ b/tools/viewlog.pl
@@ -211,7 +211,7 @@ if ($do_it) {
 
             # First line with heading
             # Exporting bd id seems useless
-            my @headings = grep { $_ ne 'action_id' } sort keys $data[0];
+            my @headings = grep { $_ ne 'action_id' } sort keys %{$data[0]};
             if ( $csv->combine(@headings) ) {
                 $content .= $csv->string() . "\n";
             }