Select Code to Download

sub new {
    my ( $pkg, $cols, $rows, $firstRow ) = @_;
...
         AoA  => @AoA
    }, $pkg;
}

sub printElement {
    $obj = shift;
...

    print "AoA[$row][$col] = $obj->{AoA}[$row][$col]; # line 42
}