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