@newarray = $hash{ $w1 }->{ $w2 }->{ words };

##</code><code>##

$hashref = $hash{ $w1 }->{ $w2 }->{ words };
foreach my $k (keys %$hashref) {
    print " * $k: $hashref->{$k}\n";
}