my @AoA;

my @subarray;

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

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

$AoA[$i] = \@subarray;