I still think foreach is easier to read than map:

foreach(split /\s+/, $keys) {$hash{$_} = undef};
[download]