my $keys = '1 2 3 4 5 6';
my %hash;
@hash{split /\s+/, $keys} = ();