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
 => ""