sub add_to_db {
    my ($record, $dbh) = @_;
    my ($foo, $bar, $baz) = @$record;
    
    my $sth = $dbh->prepare(
    qq|
        INSERT INTO DBtable
        (
            foo,
            bar,
            baz
        )
        VALUES (?,?,?)
    |) or die $dbh->errstr();

    $sth->execute(
        $foo,
        $bar,
        $baz
    ) or die $dbh->errstr();

    $sth->finish;
}