#!/usr/bin/perl -l

sub foo {
  my @list = @_;
  sub { print for reverse @list };
}

my $bar = foo(@ARGV);
$bar->();