my $sth1 = $dbh->prepare("INSERT INTO dev.blocks (names) VALUES(?)");      
my $sth3 = $dbh->prepare("INSERT INTO dev.vials (block_id, lt, well_position, gene, barcode) VALUES(?,?,?,?,?)");

for my $file (@files) {
  open my $fh, '<', "/home/mydir/data/test_files/$file" or die "can't open $file : $!\n";
  
  while(my $line = <$fh>) {
    chomp $line;
    my ($well, $gene, $lt, $barcode, $name) = split(/\t/, $line);
    
    eval {
      $sth1->execute($name); 
    };
    if ($@) {
      die "database error 1: ", $dbh->errstr;
    }
    
    my $id = $dbh->{mysql_insertid};
    
    eval {
      $sth3->execute($id, $lt, $well, $gene, $barcode);  
    };
    if ($@) {
      die "database error 2: ", $dbh->errstr;
    }
    
  }
  close($fh);
}