my @keynames = (qw/first second third fourth/);

my %hash = map ($_, 0), @keynames;