print join("\n",@AoA);      #where @AoA is an Array of Arrays

##</code><code>##

my @AoA;

my @subarray;

@subarray = @{$AoA[$i]};

tr/A-Z/a-z/ foreach @subarray;

$AoA[$i] = \@subarray;