my @cleaned_AoA1 = map { grep length, @$_ } @AoA1;