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