while ( my $fields =  $sth->fetchrow_arrayref ) {
                foreach my $field (@fields) {
                        definition( $line, $word, $field );
                }
        }

}

$dbh->disconnect;


for my $word ( keys %data ) {
        while( my ($field, $type) = each %{ $data }{ $word } ) {
                print "$word,$field" if( $type eq 'field' );
                while( my ($line, $type) = each %{ $data }{ $word } ) {
                        print ",$line" if( $type eq 'line' );
                }
        }
}


sub definition {

        my ($line, $word, $field) = @_;

        if( defined( $field ) {
                if( !defined( $data{ $word }{ $field } ) ) {
                        $data{ $word }{ $field} = field;
                }
                $data{ $word }{ $line } = line;
        }
}