my $sql   = "insert into foo values (?,?,?)";
my @binds = qw/alpha beta gamma/;
{  
    my $i = 0;
    $sql  =~ s/\?/ $dbh->quote( $binds[$i++] ) /ge;
}
# "insert into foo values ('alpha','beta','gamma')"