#!/usr/bin/perl

use Data::Dumper;

for $x (4..7) {
    for $y (0..2) {
        $AoA[$x][$y] = $x * $y;
    }
}

print Dumper $AoA;