Just a hint. Instead of

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

You might want to use

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

As you no longer use $strings, there is no need for you to split on that.

And as you don't really have a need for $hash2, this might help by using an anonymous hash:

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