Select Code to Download

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

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

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