#!/usr/bin/perl 
use strict;
use Data::Dumper;

my (%hash1, %hash2);
my @keys = qw/foo bar baz/;
@hash1{@keys} =  1  x 3;
@hash2{@keys} = (1) x 3;
print Dumper \%hash1, \%hash2;