use List::MoreUtils qw[zip];

my %hash = zip @{[1..3]},@{['a'..'c']};