@q = qw(hacker. Perl another Just);
sub q { pop @q }

for (0..6) {
        $q = $_ % 2 == 0 ?
            q(&) :
            q(;)
        ;
        print eval "${q}q( )"
}