if (ref $death eq "REF") {
   die ($death == $death )
}