Help for this page
if ($nextDay eq 'TRUE' and $barGirl[$beerLevel]) ne 'hot') {
Label not found for "next DRINKBEER" at party.pl line 11.
DRINKBEER: { ... last DRINKBEER; } }