use v5.14;

my (@x, @y);

for my $i (1..3) {
	push @x, sub {  1 };
	push @y, sub { $i };
}

say @x;
say @y;

##</code><code>##

CODE(0x9c3cce8)CODE(0x9c3cce8)CODE(0x9c3cce8)
CODE(0x9c2b228)CODE(0x9c2bd08)CODE(0x9c3c9d8)