sub word {
    my $word;
    foreach $word ( @{ $wordpl{$l} } ) {
        my $oword=$word; #define original word
        my $p=$l-1;
        word1($p, $word);
    }
}