# 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();
}
[download]

Tuples = 5

sqlplus user/pass
SQL> select * from books
TITLE
-----------
one
two
three
four
five
[download]