#to insert a line
my $stmt = 'INSERT INTO some_table (' . join(',', keys %data_to_insert) . ') VALUES (' . join(',', ('?') x keys %data_to_insert) . ')';
$dbh->do( $stmt, undef, values %data_to_insert);