if ($nextDay eq 'TRUE' and $barGirl[$beerLevel]) ne 'hot') {

##</code><code>##

Label not found for "next DRINKBEER" at party.pl line 11.

##</code><code>##

DRINKBEER:
{
    if ($barGirl[$beerLevel] eq 'ugly') {
        $beerLevel++;
        next DRINKBEER;
    }
    else {
        sleep $withBarGirl;
        last DRINKBEER;
    }
}