in reply to map syntax bug-a-boo?

The easy way to get it to parse the way you want is: 
map {($_, 2)} @l;

[download]

In Section Seekers of Perl Wisdom