# slice
@hash{@ary1} = @ary2;

# map
%hash = map { $ary1[$_], $ary2[$_] } 0..$#ary1;