我如何创建一个数组并自动填充perl中的元素

#!/usr/bin/perl
use strict;
use warnings;

# 创建一个数组
my @array;

# 使用for循环自动填充数组元素
for my $i (1..10) {
    push @array, $i;
}

# 打印数组元素
print "Array elements using for loop:\n";
foreach my $element (@array) {
    print "$element\n";
}

# 使用map函数自动填充数组元素
my @squares = map { $_ * $_ } @array;

# 打印数组元素
print "Array elements using map function:\n";
foreach my $element (@squares) {
    print "$element\n";
}