in reply to Send Array to Subroutine, Three Elements at a Time

This is actually the example used in the POD for List::MoreUtils natatime(). 
use List::MoreUtils qw( natatime );

my $it = natatime 3, @array;
while ( my @vals = $it->() ) {
    do_something( @vals );
}

[download]
My criteria for good software:
  1. Does it work?
  2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

In Section Seekers of Perl Wisdom