in reply to Re^2: list reversal closure
in thread list reversal closure

So how about this as an alternative?:

#!/usr/bin/perl -l

sub revlist {
  my @list = @_;
  sub { pop @list };
}

my $foo = revlist(@ARGV);

print while local $_ = $foo->();

[download]

Edit: Optionally, closure subroutine might look like this, of course:

sub { return unless @list; pop @list; };

print substr("Just another Perl hacker", 0, -2);
 - apotheon
CopyWrite Chad Perrin

In Section Meditations