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