sub RMGir_index {
    my ($sentence, $wantedLetters)=@_;

    ## comment removed ##

    my $foundLetters=scalar (grep index($sentence,$_)>=$[,
                                  unpack "(a)*", $wantedLetters);

    return length($wantedLetters)==$foundLetters;
}