in reply to use array for hash-keys without loop

use List::MoreUtils qw/mesh/;

my %b = mesh @a, @c;

[download]

In Section Seekers of Perl Wisdom