%wordlist= ("unknown", -1);
%lexicon = ("own", 1, "known", 1);


foreach my $q (keys %wordlist)
{
    push (@array, split(//, $q));
    $end = $#array;
    $mover = 1;
    print "\nend : $end \nmove : $mover\n";
    &rightside();
   
    print "$right\n";

    @array = ();
}

sub rightside
{
    last if($mover == 0 or $move == $end);
    if (exists $lexicon{join q(), @array[$mover..$end]})
    {
        $right =  join q(), @array[$mover..$end];
        print "\nright:$right\n";
    }
    else
    {
        $mover++;
        &rightside();
    }
}