if( A
    and B
    and C
    ) {
        # ...
    }

# I drop the extra space when doing 'or':

    if(A
    or B
    or C
    ) {
        # ...
    }

# I super-indent when booleans are composite:

    if( A
    and (
           B
        or C
        )
    and D
    ) {
        # ...
    }


##</code><code>##

    my @array = (
        $one,
        $two,
        $three,
    );


##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;