my $qmark = join(',', ('?') x @row); $sth = $dbv->prepare( "INSERT INTO DL_SWIPE VALUES( $qmark )" ); $sth->execute( @row );