From 890f6be36bd06a2e9f9934e5857ca1d3b222b830 Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.ca>
Date: Sat, 26 Aug 2023 11:13:57 -0400
Subject: [PATCH] use -> for the array ref

---
 script.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/script.pl b/script.pl
index 1ba4f91..4b4a71a 100644
--- a/script.pl
+++ b/script.pl
@@ -58,9 +58,9 @@ sub generate_output_table ($ts) {
 
     foreach my $row ( $ts->rows ) {
         foreach my $cell ($row) {
-            my $machine  = @$cell[0];
-            my $days = @$cell[4] =~ s/\s//gr;
-            my $ghz_days = @$cell[6] =~ s/\s//gr;
+            my $machine  = $cell->[0];
+            my $days = $cell->[4] =~ s/\s//gr;
+            my $ghz_days = $cell->[6] =~ s/\s//gr;
 
             if ( $days > 0 ) {
                 my $perf = $ghz_days / $days;