sub noleak (&$) {
  my $cr=shift;
  $_[0]=$cr
}
 
my @a;
for (0..9) {
  noleak {0,5} my $a;
  push @a,$a;
  print $a
}

##</code><code>##

 
/usr/bin/perl -w /home/lanx/B/PL/PM/iter_leak.pl 
CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)CODE(0xa099b48)

##</code><code>##

sub noleak (&$) {
  my $cr=shift;
  $_[0]=$cr
}
 
my ($start,$end)=(1,20);
my @a;
for (0..9) {
  $start++;
  noleak {$start,$end} my $a;
  push @a,$a;
  print $a
}

##</code><code>##

CODE(0x8e29760)CODE(0x8e47ca8)CODE(0x8e47d08)CODE(0x8e47d68)CODE(0x8e47dc8)CODE(0x8e47e28)CODE(0x8e47e88)CODE(0x8e47ee8)CODE(0x8e47f48)CODE(0x8e47fa8)

##</code><code>##

CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)CODE(0x81f7760)