#!/usr/bin/env perl     
#-*-Perl-*-

use v5.16;

my @a = qw<a b c>;
my $b = [@a];

while (my ($i, $v) = each $b) {
    say "$i: $v";
}

while (my ($i, $v) = each [@a]) {
    say "$i: $v";
}

##</code><code>##

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

while (my ($i, $v) = each $b) {
    say "$i: $v";
}

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