my $end;
my $mover;
my $right;

foreach my $q (keys %wordlist)
{
    push (@array, split(//, $q));
    $end = $#array;
    $mover = $end-2;

    &rightside();
   
    print "$right\n";

    @array = ();
}

sub rightside
{
    if (exists $lexicon{join q(), @array[$mover..$end]})
    {
        $right =  join q(), @array[$mover..$end];
    }
    else
    {
        $mover--;
        &rightside();
    }
}