use strict;
use warnings;
use Data::Dumper;

my %hash;
@hash{qw(a b c)} = (1) x 3;
print Dumper (\%hash);