use List::MoreUtils qw[zip];

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

Type of arg 1 to main::zip must be array (not single ref constructor) at 
Type of arg 2 to main::zip must be array (not single ref constructor) at 

##</code><code>##

use List::MoreUtils qw[zip];

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