>perl -ce"map{ qq{@{ $_->[ 0 ] }} => $_ } @a"
syntax error at -e line 1, next char @
-e had compilation errors.

>perl -ce"map{; qq{@{ $_->[ 0 ] }} => $_ } @a"
-e syntax OK