map (sub { "1" x $_ }, (1..10));

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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