$ perl
use v5.14;
my @subs;
sub dosomething :prototype(&) { push @subs, $_[0]; }
my $x;
for (1..2) {
  dosomething { $x+1 }
}
for (1..2) {
  my $x;
  dosomething { $_+1 }
}
say for @subs;
__END__
CODE(0x64405f0de700)
CODE(0x64405f10b340)
CODE(0x64405f118bb0)
CODE(0x64405f118bb0)