while ($idx_la > $i) {
    &log("I: $i IDX_LA: $idx_la\n");
    $phrase = join ' ', @$sl_ctl[$i..$idx_la];
    $rawtr  = $self->get_rawtr($phrase);
    if ($@$rawtr) {
        my $disam = $self->disambiguate($phrase,
                                        $rawtr,
                                        $i,$idx_la);
        push @tl_rtl, $disam;
        last;
    }
    $idx_la--;
    push @tl_rtl, $phrase;    
}