my @ref_to_column_zero = map { \($_->[0]) } @{$twod_array};

…所以你可以直接操作这些值：你只需要记住存在于这个数组中的引用,所以应该取消引用它们.例如：

for (@ref_to_column_zero) {
  ${ $_ } *=2;
}

如果您更喜欢使用旧方法,则可以执行以下操作：

for (0..$#column_zero) {
  $twod_array->[$_][0] = $column_zero[$_];
}