shift @chair and push @to, $table; if (exists $enough[$space])
{next; wait for $pizza}
split $pizza and chop $slices for @all; 
$munch and $munch;
pop @beers;
sleep until ($waiter = warn time . $to_go );
[download]