for (keys %$p){ if ($p->{$_} == 0){} }

##</code><code>##

    DBI 1.201-nothread dispatch trace level set to 2
    Note: perl is running without the recommended perl -w option
    -> prepare for DBD::ODBC::db (DBI::db=HASH(0x1abae48)~0x1abad7c 'UPDATE players SET t_id=?, bats=?, throws=?, status=? WHERE id=?')
    dbd_preparse scanned 5 distinct placeholders
    dbd_st_prepare'd sql f31660176
	UPDATE players SET t_id=?, bats=?, throws=?, status=? WHERE id=?
    <- prepare= DBI::st=HASH(0x1abae6c) at a.pl line 18
    -> execute for DBD::ODBC::st (DBI::st=HASH(0x1abae6c)~0x1ab55ac '20' R R A 1)
bind 1 <== '20' (attribs: )
bind 1 <== '20' (size 2/3/0, ptype 4, otype 1)
    bind 1: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=2.
bind 2 <== 'R' (attribs: )
bind 2 <== R (size 1/2/0, ptype 6, otype 1)
    bind 2: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=1.
bind 3 <== 'R' (attribs: )
bind 3 <== R (size 1/2/0, ptype 6, otype 1)
    bind 3: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=1.
bind 4 <== 'A' (attribs: )
bind 4 <== A (size 1/2/0, ptype 6, otype 1)
    bind 4: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=1.
bind 5 <== '1' (attribs: )
bind 5 <== 1 (size 1/2/0, ptype 6, otype 1)
    bind 5: CTy=1, STy=VARCHAR, CD=80, Sc=0, VM=1.
    dbd_st_execute (for sql f31660176 after)...
    dbd_describe sql 31660176: num_fields=0
    dbd_describe skipped (no result cols) (sql f31660176)
    dbd_st_execute got no rows: resetting ACTIVE, moreResults
    <- execute= 1 at a.pl line 19

...