I didn't test this code, but I rewrote it to be a lot more efficient and to copy a lot less information. I expect it to run substantially more quickly.

sub UpdateDBIar2
{
    my ($queries, $args) = @_;
    use DBI;
    my $dbh = DBI->connect(
"dbi:mysql:database=SchoolToolsDev;host=localhost;user=stadmin;passwor
+d=stadmin"
        ) or die "Couldn't connect to database $DBI::errstr\n";

    for my $query ( @$queries )
    {
        my $sth    = $dbh->prepare($query);

        for my $arg (@$args)
        {
            $sth->execute( $arg );
        }
    }
}

my $crCode1 = sub
{
    my @result = ( 10734 .. 10845 );
    my @queries = map { "UPDATE Tests SET $_ = '1' WHERE ID = ?" }
        qw( Baseline Q1 Q2 Q3 Q4 );

    UpdateDBIar2( \@queries, \@result );
};
[download]