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";
}