my (%hash, @a, @b);
%hash = map { ($a[$_], $b[$_]) } 0..$#a;