C:\temp>perl -E "say for map { my $x=$_; sub {1 x $x} } 1..3"
CODE(0x23aa7c)
CODE(0x182aef4)
CODE(0x182ad74)