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

           $line= undef;                              
           $id++;                                  
    }                                            
    else{                                        
        chomp(my $string = $_);                    
        $line.=$string;                            
    }                                            
}