my @a;
sub func {
   my ($f) = @_;
   my $var;
   print(\$var, "\n");
   push @a, \$var if $f;
   return;
}

func(0) for 1..3;
print("\n");
func(1) for 1..3;
print("\n");
func(0) for 1..3;

##</code><code>##

SCALAR(0x226038)
SCALAR(0x226038)
SCALAR(0x226038)

SCALAR(0x226038)
SCALAR(0x225210)
SCALAR(0x225324)

SCALAR(0x22512c)
SCALAR(0x22512c)
SCALAR(0x22512c)