use ->@*

2023-08-26 11:09:33 -04:00 · 2023-08-26 11:09:33 -04:00 · a7ac2aa7e8
commit a7ac2aa7e8
parent 3e0be2e54c
1 changed files with 1 additions and 1 deletions
--- a/script.pl
+++ b/script.pl
@ -66,7 +66,7 @@ sub generate_output_table ($ts) {

            if ( $days > 0 ) {
                my $perf = $ghz_days / $days;
-                push( @{ $list->{$machine} }, $perf );
+                push $list->{$machine}->@*, $perf;
            }
        }
    }