my @k = ("a", "b", "c");
my @v = (1, 2, 3);
my %h = map { $k[$_] => $v[$_] } (0..$#k);