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