for my $element (@array) {
    print "$element\n\n";
}

# or using the default variable
for (@array) {
    print "$_\n\n";
}

# or using for as a statement modifier
print "$element\n\n" for @array;

##</code><code>##

for (0..$#array) {
    print "$array[$_]\n\n"
}