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();
    }
}
##</code><code>##

sub rightside  
{
    for (my $x = $#array-2; $x == 0; $x--)
    {
        if (exists $lexicon{join q(), @array[$x..$#array]})
        {
            $right = join q(), @array[$x..$#array];
        }
   }
}