my $sth = $dbh->prepare($query); my @params = @$bind_params; my ($i,$j); for ($i = 0,$j=1; $i <= $#params;$i++,$j++){ $sth->bind_param($j,$params[$i]); } $sth->execute();