> perl -MO=Terse -e 'use strict;my @a;for my $f (@a){no strict "refs";print $$f}'
LISTOP (0x8225988) leave [1] 
    OP (0x831eec0) enter 
    COP (0x8245398) nextstate 
    OP (0x82258c8) padav [1] 
    COP (0x831ee58) nextstate 
    BINOP (0x831ee30) leaveloop 
        LOOP (0x8232a98) enteriter [2] 
            OP (0x82dc988) null [3] 
            UNOP (0x8232a70) null [141] 
                OP (0x823bc98) pushmark 
                OP (0x823bce8) padav [1] 
        UNOP (0x831ee10) null 
            LOGOP (0x82dc9e8) and 
                OP (0x82dc9a8) iter 
                LISTOP (0x82dc960) lineseq 
                    COP (0x823c348) nextstate 
                    LISTOP (0x823c300) print 
                        OP (0x823c328) pushmark 
                        UNOP (0x8225880) rv2sv 
                            OP (0x82c1c20) padsv [2] 
                    OP (0x82dc9c8) unstack