There's a zip in List::MoreUtils that you can use.

use List::MoreUtils 'zip';

@keys   = qw/a    b    c/;
@values = qw/foo bar baz/;

my %h = zip @keys, @values;
[download]