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