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

##</code><code>##

my $keys = '1 2 3 4 5 6';
my %hash = map { $_ => undef } split /\s+/, $keys;