use v5.14;

my (@x, @y);

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

say @x;
say @y;