}elsif($wizard<=0){
    &die;
}
[download]

You might want to use a different function name, since die() is already a Perl builtin. Unless you really meant to call Perl's die().

You also have $dmg and $damage variables. Are they supposed to be different?

Update: Thanks, [id://Animator]. Spending time here in PM is great for clearing up my little "pockets of ignorance".