sub create_hash{
my @keys=@_;
no strict "refs";
my $base;
$base->{$_}=undef for @keys;
return $base;
}

$hash = create_hash('key1','key2');
%hash = %{create_hash('key1', 'key2')}