#!/usr/bin/perl -w
use strict;
my @table;
my $i;
my $j;

for $i (0..10) {
     for $j (0..10) {
         $table[$i][$j] = $i * $j;
     }
}

#вывести:

for ($i = 0; $i < @table; $i++){
  for($j =0; $j < @{$table[$i]}; $j++){
    print "$i : $j : ", $table[$i][$j], "\n";
  }
}

#можно и так:

for $i (0..$#table) {
     for $j (0..$#{$table[$i]}) {
         print "$i : $j : " . $table[$i][$j] . "\n";
     }
}