my $i; say for grep ++$i % 2, f();