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;