Try print {}; then print {1 => 2}; and then print {1 , 2}; and finally print map { ( 1,2 ) } @l;

update: Howdy folks, I'm a slowhand luke

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"