Select Code to Download

foreach my $element (@array) {...

my @array = qw(a b c d e f g);

...
        print "$element\n";
    }
}