Select Code to Download

my @arr = qw/a b c/;
for (my $i=0; $i<@arr; ++$i) {
...
    print $e;
}
print "\n";

my @arr = qw/a b c/;
while (@arr) {
...
    print $e;
}
print "\n";