#!/usr/bin/perl -l

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

my $foo = revlist(@ARGV);

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