use strict;
use warnings;
use Data::Dumper;

my   $string   = "one 1 two 2 three 3 odd_element";
my   @elements = split / /, $string;
push @elements, undef if @elements % 2;
my   %hash     = @elements;

print Dumper \%hash;