getnext( "1.3.6.1.7.1.3", "1.3.6.1.7.1.4" );

  1.3.6.1.7.1.3.14.15.16 - "Hello"
  1.3.6.1.7.1.4.14.15.16 - "Bonjour"

##</code><code>##

  getnext( "1.3.6.1.7.1.3.14.15.16",
           "1.3.6.1.7.1.4.14.15.16" );

  1.3.6.1.7.1.3.14.15.17 - "Goodbye"
  1.3.6.1.7.1.4.14.15.19 - "Non"

##</code><code>##

  getnext( "1.3.6.1.7.1.3.14.15.17",
           "1.3.6.1.7.1.4.14.15.17" );

  1.3.6.1.7.1.3.14.15.19 - "No"
  1.3.6.1.7.1.4.14.15.19 - "Non"

##</code><code>##

  my $myFrenchCol = '1.3.6.1.7.1.3';
  my $myEnglishCol = '1.3.6.1.7.1.4';

  my $row = "";
  while ( 1 ) {
    my ( $rF, $rE ) = getnext( $myFrenchCol . $row,
                               $myEnglishCol . $row );

    if ( $rE =~ m/^$myEnglishCol(.+)$/ ) {
        $row = $1;
        if ( $rF !~ m/^$myFrenchCol($row)$/ ) {
            print( Results on different rows\n";
            next;
        }
        # match! process results.. and continue
        next;
    } else {
        # got something funny back, maybe run out of rows
        last;
    }
  }