#!/usr/bin/perl -l

sub gen_arr {
  my $inner =shift;

  print my $outer = \"foo";

  return $outer;
}

gen_arr gen_arr;
__END__
SCALAR(0x9400bc4)
SCALAR(0x9400bc4)

##</code><code>##

my $outer = eval "sub {1;}";   # Different address each time.