Another possibility (also untested): 

use constant MAX => 50;

sub process_up_to_MAX_at_a_time {
    
    my ($port,       # comment
        @addresses,  # ...
        ) = @_;
        
    while (@addresses > MAX) {
        my @sub_group = splice @addresses, 0, MAX;
        process_0_to_MAX($port, @sub_group);
        }
    
    process_0_to_MAX($port, @addresses);

    }

sub process_0_to_MAX { ... }

[download]
See splice. process_up_to_MAX_at_a_time() could also be made purely recursive... if you're into that sort of thing.

BTW: Beware of comparisons like  $#addresses >= 50 when checking array size: it's an off-by-one pitfall. It seems ok in the  proces_no_more_than_50() example, but I find direct comparisons against an array (e.g.,  @addresses > 50) to be more intuitive and less error-prone in general. Also note that assignment to  $[ (but don't do that!) changes the value of  $#array (see perlvar). Evaluating  @array in scalar context always yields the number of elements in the array. (The  $[ special variable is deprecated as of Perl version 5.12; see the latest perlvar for its behavior after version 5.16. (Update: Better yet, check your local  perldoc perlvar for its behavior on your system — and then don't touch it.))

Give a man a fish:  <%-{-{-{-<

In reply to Re^2: Break the foreach loop on count on 50 and then insert a new foreach loop by AnomalousMonk
in thread Break the foreach loop on count on 50 and then insert a new foreach loop by iamnewbie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.