# table books - title char(10)
my $dbh;
connectdb();  # sets $dbh use your connection here, I have AutoCommit=>0
my $sth = $dbh->prepare("insert into books values (?)");
my @val = qw(one two three four five);
$sth->bind_param_array(1,\@val);

my $tuples = $sth->execute_array({ArrayTupleStatus=>\my @tuple_status});

print "Tuples = $tuples\n";
$dbh->commit();
$dbh->disconnect();

sub connectdb {
   $dbh = DBI->connect();
}