foreach (@AoA1) {
   @$_ = grep length, @$_;
}