I was able to do it using the following.

my $sth = $dbh->prepare("INSERT INTO $table ($cols) VALUES (?,?,?)")
   or die "$dbh->errstr";
my @array=('one', 'two', 'thee');
$sth->execute(@array) or die "$dbh->errstr : $table";
[download]

You should be able to plug your code in pretty easily.