$,=", ";
$\="\n";
@list = qw( a b c d );

$| = 0;
print grep --$|,  @list;  # a, c

$t = 0;
print grep $t^=1, @list;  # a, c