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