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