Select Code to Download

sub reduce_hp {
    my ($hp) = @_;
...
my $char_hp = 400;
$char_hp = reduce_hp($char_hp);
print("Character now has $char_hp hp\n");

sub reduce_hp {
    my ($hp) = @_;
...
my $char_hp = 400;
reduce_hp($char_hp);
print("Character now has $char_hp hp\n");