#!/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"; } }