在Perl中，可以使用for循环对数组进行遍历。以下是一些示例代码：
for循环遍历数组：my @array = (1, 2, 3, 4, 5);
for(my $i = 0; $i < scalar(@array); $i++) {
my $element = $array[$i];
# 执行操作
print $element;
}
foreach循环遍历数组：my @array = (1, 2, 3, 4, 5);
foreach my $element (@array) {
# 执行操作
print $element;
}
while循环和shift函数遍历数组：my @array = (1, 2, 3, 4, 5);
while(my $element = shift @array) {
# 执行操作
print $element;
}
在以上示例中，你可以根据自己的需求来执行操作。
