print "$_\n" for grep {
        if ($_%2) {$a=1} else {$a=0} $a
    } 1..10;