DB<161> ;{ my $b; for (1..3){ print sub {1} ; print $b= sub {2} if $_==1 } }
CODE(0x86c5af0)
CODE(0x86c5af0)
CODE(0x86c5be0)
CODE(0x86c5be0)

  DB<163> ;{ my $b; for (1..3){ print 0+sub {1} ; print 0+($b= sub {2}) if $_==1 } }
141319216
141319216
141319552
141319552