You should set -1 in H in @DEATH subroutine.