sub damage {
  ...
  $self->{_hp} = $self->{_hp} - $hits;
  # or, more succinctly:
  # $self->{_hp} -= $hits;
}