my $string = q(one tow three four five six);
my @words = split(/ /, $string);

##</code><code>##

my @words= qw(one tow three four five six);

##</code><code>##

$hash1{$words[0]}= { $words[1] => join(' ', @word[2..$#words]) };