foreach (0 .. $#array) {
           my @count = split /\n/, $array[$_];
           $#count >= 0 && splice @array, $_, 1, @count;
        }