my %hash = ((split / /, $str), $str =~ y/ / / % 2 ? () : undef);