sub UpdateDBIar2
{
	my ($queries, $args) = @_;
	use DBI;
	my $dbh = DBI->connect(
"dbi:mysql:database=SchoolToolsDev;host=localhost;user=stadmin;password=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 );
};