use DBI;
use List:Util;
use Math::Complex;

my %CLAUSES;

sub next_clauseid {

    my $current_id = @_;
  
    foreach my $id ( keys %CLAUSES ) {
    
    
        if ( $CLAUSES{ $id }{ lineno } ==  $CLAUSES{ $current_id }{ lineno }
            and $CLAUSES{ $id }{ clauseno } == ($CLAUSES{ $current_id }{ clauseno } + 1) ) {
            return $id;  
        }
    }
    return 0;
}

##</code><code>##

  10950,
  {
    behav_behaver    => undef,
    behavioural      => undef,
    character        => "MARS",
    clause           => "Did you just swear?",
    clauseid         => 10950,
    clauseno         => 1,
    exist_existent   => undef,
    existential      => undef,
    lineid           => 181,
    lineno           => 181,
    mat_actor        => undef,
    mat_goal         => undef,
    material         => undef,
    men_phenom       => undef,
    men_senser       => undef,
    mental           => undef,
    rel_attribute    => undef,
    rel_carrier      => undef,
    rel_identified   => undef,
    rel_identifier   => undef,
    relational_attr  => undef,
    relational_ident => undef,
    verb_sayer       => undef,
    verb_target      => undef,
    verbal           => undef,
  },
  10736,
  {
    behav_behaver    => undef,
    behavioural      => "",
    character        => "BRIAN",
    clause           => "Yeah, yeah.",
    clauseid         => 10736,
    clauseno         => 1,
    exist_existent   => "",
    existential      => "",
    lineid           => 7,
    lineno           => 7,
    mat_actor        => "",
    mat_goal         => "",
    material         => "",
    men_phenom       => "",
    men_senser       => "",
    mental           => "",
    rel_attribute    => "",
    rel_carrier      => "",
    rel_identified   => "",
    rel_identifier   => "",
    relational_attr  => "",
    relational_ident => "",
    verb_sayer       => "",
    verb_target      => "",
    verbal           => "",
  },
  10862,
  {
    behav_behaver    => undef,
    behavioural      => undef,
    character        => "BRIAN",
    clause           => "I'll call the cops.",
    clauseid         => 10862,
    clauseno         => 1,
    exist_existent   => undef,
    existential      => undef,
    lineid           => 121,
    lineno           => 121,
    mat_actor        => undef,
    mat_goal         => undef,
    material         => undef,
    men_phenom       => undef,
    men_senser       => undef,
    mental           => undef,
    rel_attribute    => undef,
    rel_carrier      => undef,
    rel_identified   => undef,
    rel_identifier   => undef,
    relational_attr  => undef,
    relational_ident => undef,
    verb_sayer       => undef,
    verb_target      => undef,
    verbal           => undef,
  },