my $counter = 0;
while ($counter < $limit) {
    my $item = shift @work_queue;
    my $thingy = some_function($item);
    next if $thingy ne 'PARTY';
    # more code if $thingy ne 'PARTY'
}
continue { ++$counter; }