use List::MoreUtils 'zip'; my %hash = zip @arr1, @arr2;