if ($t::x<$left or $t::y<$top or
              $t::x>$right or $t::y>$bot) {
              &{$_->{callback}} if ($_->{callback});  #NEW
              $_->{sprite}->remove;