Select Code to Download

sub reverse_iterator {
    my @list = @_;
...
        return pop @list;
    };
}

sub reverse_iterator {
    my @list = @_;
...
while ($foo->(my $val)) {
    print("$val\n");
}