{
    my @FIELDS = qw( field1 field2 field3 );

    sub run_insert 
    {
        my $dbh = shift || return;
        my ($field1, $field2, $field3) = @_;

        my $sql = q/
            INSERT 
            ( / . 
                join(',' @FIELDS) . 
            q/)
            INTO some_table 
            VALUES 
            ( *** PLACEHOLDERS HERE ***)
        /;
        my $sth = $dbh->prepare($sql);
        $sth->execute($field1, $field2, $field3);
        $sth->finish;
    }
}