答案。

Perl 在历史上以动态数据结构而闻名：可变长度的数组和关联数组（哈希）。从语言的早期版本开始，它们就允许实时改变大小（数组的 push/pop、shift/unshift；在哈希中添加/删除键）。这种灵活性在 Perl 的架构中是内置的：内存由系统自动管理，容器会在不需要程序员显式干预的情况下扩展或收缩。

在进行批量修改时会出现问题：操作顺序不优化可能导致多余的内存重新分配，而对结构的错误操作（例如，在 foreach 中同时删除元素）可能会引发bug。

解决方案是使用内置的批量操作（splice, delete），或通过 map/grep 构造新的结构，避免在遍历时操作结构。

代码示例（按条件批量删除）：

# 从数组中删除索引为偶数的元素
my @arr = (1..10);
@arr = grep { $_ % 2 } @arr; # 只保留奇数

# 批量添加
push @arr, (11, 13, 15);

# 对于哈希
my %hash = (a => 1, b => 2, c => 3, d => 4);
delete @hash{ grep { $hash{$_} % 2 == 0 } keys %hash }; # 删除偶数值

关键特点：

所有结构均可动态扩展：不需要提前知道大小。
对于批量操作，使用 map/grep 比在 for 循环中进行删除更有效。
有内置的批量函数（splice、delete、push、unshift）用于高效修改。

陷阱问题。

在遍历 for/foreach 时，是否可以安全地从数组中删除元素？

回答：不可以，这会导致不正确的行为——索引会偏移，循环会“跳过”元素。请使用过滤（map/grep）或反向遍历与 splice。

autovivification 如何影响新嵌套结构的创建？

回答：当访问不存在的元素时，Perl 会自动创建结构，这节省了时间，但可能会导致意外的副作用（创建“空”结构）。如果需要严格的内存管理，请手动控制。

my %h;
$h{newkey}{subkey} = 1; # Perl 会自动创建子哈希！

在哈希中重写现有值总是一个快速的过程吗？

回答：对于标量和大多数简单类型是的；但如果值是大型结构或引用，可能会有引用计数的开销。大型结构最好就地修改，而不是重写引用。

常见错误和反模式

在 foreach 循环中对同一数组进行元素删除。
轻信 “无限” 的 push/pop 效率——在大量元素的情况下，它们的时间是线性的。
在不需要的地方使用 autovivification，导致内存泄漏。

生活中的示例

负面案例

开发者在 foreach 中直接删除数组中的元素，结果部分数据留在了数组中，循环运行不正确。

优点：

写得快，乍一看容易理解。

缺点：

有时会跳过元素，bug 难以追踪。

正面案例

使用 @arr = grep { 条件 } @arr 进行过滤，或者从数组末尾进行按索引删除。