sub dbh{
    my ($statement, $dbh2, @values) = @_;
    my $sth = $dbh2->prepare($statement) or die "dbh2 = $dbh2 Couldn't prepare statement: $statement ".$dbh2->errstr;
    $sth->execute(@values) or die "dbh2 = $dbh2 Couldn't execute statement: $statement ".$dbh2->errstr;
    return $sth;
}

# ........................
sub insert_lexicon{

    my ($self) = @_;

    $statement = 'INSERT INTO lexicon (
        word,
        meaning,
        auid) VALUES(
        ?,
        ?,
        ?)';

    return ($statement);
}