lanx@nc10-ubuntu:~/org$ perl -MO=Terse -e'$x= ()=qw(a,b)'
LISTOP (0x9bd0fe0) leave [1] 
    OP (0x9be01e8) enter 
    COP (0x9bb8860) nextstate 
    BINOP (0x9b3ca48) sassign 
        BINOP (0x9b21a58) aassign [2] 
            UNOP (0x9b218c0) null [142] 
                OP (0x9be3e40) pushmark 
                SVOP (0x9c14638) const [3] PV (0x9b1dee0) "a,b" 
            UNOP (0x9c14598) null [142] 
                OP (0x9b19820) pushmark 
                OP (0x9b3c980) stub 
        UNOP (0x9be8630) null [15] 
            PADOP (0x9b21940) gvsv  GV (0x9b1dec0) *x 
-e syntax OK