>>817

} elsif ($switch eq "008A") {

これが攻撃している・されているのパケットだから
他PCにダメージを与えているモンスはリストから消すとか

print "Monster $monsters{$ID1}{'name'} ($monsters{$ID1}{'binID'}) attacks Player

の辺りで
攻撃してるモンスをリストから消してみるとか