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