#!perl
use strict;
my @array = (0..4);
my $ph = '?'.(',?' x $#array);

my $sql = qq!INSERT INTO table VALUES ($ph)!;
my $sth = $dbh_1->prepare($sql);
$sth->execute(@array);