When you return a list and assign it to an array, the list elements are copied across the assignment operator. So any solution involving:

while ( my @group = $next->() )
[download]

is not going to preserve aliasing. @group is going to get copies of whatever was used in the return statement of the iterator.

Instead, you'll have to return an array reference. As for getting the aliases, the only way to get aliases is through argument passing. An idiomatic way is with:

my $arrayref_of_aliases = sub { \@_ }->( $stuff, $to, $alias );
[download]

In terms of your code, you change the return line of the iterator to:

        return sub { \@_ }->( @$list[ $start .. $stop ] );
[download]

Then it works as you'd expect (with the appropriate changes in the calling code's while loop).