sub get_table {
   my $max = $_[0] - 1;
   my @table;
   for my $y (0..$max) {
      for my $x (0..$max) {
         $table[$y][$x] = ($x + 1) * ($y + 1);
      }
   }
   return @table;
}