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