DB<123> sub test(&) { my( $c ) = @_; print 0+$c,$/; return $c }

  DB<124> ;{ my @a; for(1..3){ my $a; push @a, test {$a} } }
145187472
145182504
144725160
 => ""

  DB<125> sub test(&) { my( $c ) = @_; print 0+$c,$/}

  DB<126> ;{ my @a; for(1..3){ my $a; push @a, test {$a} } }
145184216
145184216
145184216
 => ""

##</code><code>##

  DB<155> sub tst2(&) { my( $c ) = @_; print &$c,":\t",0+$c,$/;return $c}

  DB<156> sub tst1(&) { my( $c ) = @_; print &$c,":\t",0+$c,$/;}

  DB<157> ;{ my $b; for my $a (1..3){tst1 {$a} ; $b=tst2 {42} if $a==1 } }
1:	145234328
42:	145234328
2:	141318480
3:	141318480


##</code><code>##

  DB<158> ;{ my $b; for my $a (1..3){tst1 {1} ; $b=tst2 {2} if $a==1 } }
1:	141317840
2:	141317840
1:	141318608
1:	141318608