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