#!usr/bin/perl

PARTYTIME:
{
	local @barGirl = qw/uglyugly ugly ugly ugly ugly ugly ugly hot/;
	my $beerLevel = 0;
	
	DRINKBEER:
	if ($barGirl[$beerLevel] eq 'ugly') {
		$beerLevel++;
		next DRINKBEER;
	}
	else {
		sleep $withBarGirl;
		last DRINKBEER;
	}
	
	$nextDay = 'TRUE';
	$beerLevel = 0;
	
	if ($nextDay eq 'TRUE' and $barGirl[$beerLevel]) ne 'hot') {
		die;
	}
}

if ($weekend eq 'over') {
	last PARTYTIME;
}
else {
	next PARTYTIME;
}