c:\@Work\Perl\monks>perl -le
"use strict;
 use warnings;
 use Data::Dumper;
 ;;
 my %hash;
 ;;
 my $str = 'one 1 two 2 three 3 odd_element';
 {
   no warnings 'misc';
   %hash = split / /, $str;
 }
 print Dumper \%hash;
"
$VAR1 = {
          'odd_element' => undef,
          'three' => '3',
          'one' => '1',
          'two' => '2'
        };

##</code><code>##

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