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