my @ary;
my $c = 0;
for my $row( 0..20 ) {
    for my $col ( 0..2 ) {
        $ary[$row][$col] = $c++;
    }
}

# have a look
print "\t|0\t1\t2\n----+------------\n";
for my $row( 0..20 ) {
    print "$row\t|";
    for my $col ( 0..2 ) {
        print "$ary[$row][$col]\t";
    }
    print "\n";
}

printf "
The answer is %d
    --Deep Thought from Hitch Hikers Guide to the Galaxy\n", $ary[14][0];