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