Select Code to Download

my $largest = @table ? $table[0][0] : undef;
for my $y (0..$#table) {
...
      $largest = $row->[$x] if $largest < $row->[$x];
   }
}