my $line;
while(<LINES>){                                  
    if (m/^--/){
        if (defined($line)){
            my @data = ( [ $id++, $line ] );
            $self->_loaddb(table => 'TABLE',
                           data  => \@data);
            $line = undef;
        }
    }                                            
    else{                                        
        chomp;
        $line .= $_;
    }                                            
}