如何将从DB中检索到的数据写入到2D数组中，以及如何在Perl中检索回这些数据？

将从数据库中检索到的数据写入到2D数组中，可以通过以下步骤实现：

1. 连接数据库：使用数据库相关的API或模块，如Perl中的DBI模块，建立与数据库的连接。
2. 执行查询：使用SQL语句向数据库发送查询请求，获取需要的数据。例如，使用SELECT语句检索数据。
3. 创建2D数组：在Perl中，可以使用数组和引用的组合来创建2D数组。可以使用二维数组引用（Array of Array Reference）的方式来表示2D数组。
4. 遍历查询结果：使用循环结构，遍历查询结果集。对于每一行数据，将其存储到2D数组中的相应位置。
5. 关闭数据库连接：在数据检索完成后，关闭与数据库的连接，释放资源。

在Perl中检索回这些数据，可以按照以下步骤进行：

1. 访问2D数组：使用数组和引用的组合，通过索引访问2D数组中的元素。例如，使用$数组引用->[行索引]->[列索引]的方式访问特定位置的数据。
2. 处理数据：根据需要，对检索到的数据进行进一步处理、计算或展示。可以使用Perl提供的各种函数和模块来完成数据处理的任务。

下面是一个示例代码，演示了如何将从数据库中检索到的数据写入到2D数组中，并在Perl中检索回这些数据：

use DBI;

# 连接数据库
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "username", "password")
  or die "无法连接到数据库: $DBI::errstr";

# 执行查询
my $sth = $dbh->prepare("SELECT * FROM table_name");
$sth->execute();

# 创建2D数组
my @data; # 二维数组
while (my $row = $sth->fetchrow_arrayref) {
  push @data, $row;
}

# 关闭数据库连接
$sth->finish();
$dbh->disconnect();

# 访问2D数组
foreach my $row (@data) {
  foreach my $cell (@$row) {
    print "$cell ";
  }
  print "\n";
}

上述代码中，需要替换数据库连接的相关信息（数据库名、主机名、用户名、密码）和查询语句中的表名。通过执行查询语句，将检索到的数据存储到2D数组@data中。然后，通过嵌套循环遍历@data，访问每个元素并进行处理。

注意：上述代码仅为示例，实际情况中需要根据具体的数据库和表结构进行适当的修改。

对于Perl中的数据库操作，可以参考Perl DBI模块的文档：https://metacpan.org/pod/DBI

对于Perl中的数组和引用操作，可以参考Perl官方文档：https://perldoc.perl.org/perldata.html