在Perl中，可以使用循环结构来批量创建数组。以下是一些常见的方法：
my @array; for (my $i = 1; $i <= 10; $i++) { push @array, $i; }
my @array = (1..10);
my @array = map { $_ } 1..10;
my @array = (1) x 10;
以上方法都可以创建一个包含1到10的数组。根据需要，可以调整循环的起始值、结束值和递增步长来创建不同的数组。
