use List::MoreUtils 'zip';

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

my %h = zip @keys, @values;