use DBI;
use strict; 

# query in question
my $sth_sts = $dbh->prepare("UPDATE players SET t_id=?, bats=?, throws=?, status=? WHERE id=?");   

my $i;
foreach $i (0 .. $#$prec) {  # $prec is defined elsewhere
    # blah
    # blah
    # blah
    # blah

    # execute in question
    $sth_sts->execute($tid,$p->{P_BATS},$p->{P_THROWS},$p->{P_STATUS},$p->{P_PLAYERID})
    or print "$DBI::errstr\n";

    # blah
}