my $max = 13; my $speech = 0; my $beer = "free"; while ($beer){ ++$speech; die "No more beer" if $speech == $max; }