my $limit = 3;
my @work_queue = qw( a PARTY b c d);
sub some_function { $_[0] }

...

print(scalar(@work_queue), "\n");