use Data::Dumper;
my %hash = map { $_ => 60; } qw(foo bar baz);
print Dumper \%hash;