my @array = qw/ foo, bar, baz /; my %hash = map { $_ => 1 } @array; my @keys = qw/ foo bar baz /; my @values = qw/ hoge moge hage /; my %hash = (); @hash{@keys} = @values;