Just for TMTOWTDI, you could also write a function to zip the arrays:

sub zip {
    $#_ += @_ % 2; # force even nr of elements
    @_[ map +( $_, $_ + @_ / 2 ), 0 .. $#_ / 2 ]
}
[download]

and then simply assign them to the hash:

my %hash = zip(@keys, @values);
[download]

This is less efficient, but unlike the hash slice solution it can easily be used in the middle of a long expression.