my $dbh = DBI->connect( "dbi:ODBC:AV_Lenovo", "", "",{RaiseError => 1, PrintError => 1, AutoCommit => 0} ) or
die "Unable to connect: " . $DBI::errstr . "\n";

##</code><code>##

	my $sql = join ('', 
		"INSERT INTO raw ( 
		 CHROM			
		,POS			
		,ID				
		,REF			
		,ALT			
		,QUAL			
		,FILTER			
		,INFO			
		,FORMAT	
		) values (?, ?, ?, ?, ?, ?, ?, ?, ?);", "\n"
	);
	 eval {
         my $sth = $dbh->prepare($sql);
         $sth->execute( @values );
     };

##</code><code>##

1
10235
rs540431307
T
TA
100
PASS
AC=6
G