Select Code to Download

#!/usr/bin/env perl     
#-*-Perl-*-
...
while (my ($i, $v) = each [@a]) {
    say "$i: $v";
}

my $b = {map { $_ => $_ } qw<a b c>};

...
while (my ($i, $v) = each {map { $_ => $_ } qw<a b c>}) {
    say "$i: $v";
}