my %hash = ();
my @array = qw /fred jim john joe/;

@hash{ @array } = @array;