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

my %hash = map { $_, 0 } @keynames;