>>599
my %h = qw(a A b B c C);

これを作ればいいわけだから、

use List::MoreUtils qw(zip);

my @k = qw(a b c);
my @v = qw(A B C);
my %h = zip(@k, @v);