use v5.40;
my @subs;
sub dosomething :prototype(&) { push @subs, $_[0]; }
for (1..2) {
  my $x;
  dosomething { $x+1 }
}
for (1..2) {
  my $x;
  dosomething { $_+1 }
}
say for @subs