Select Code to Download

use List::MoreUtils qw( each_arrayref );

...
while ( my ($idx, $v) = $each->() ) {
    print "$idx: $v\n";
}

use List::MoreUtils qw( each_array );

...
    my $idx = $each->('index');
    print "$idx: $v\n";
}