#!/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";
}