my %hash = do {
  no warnings 'misc';
  split / /, $str;
  };