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

$n = 3;
$t = $n-1;
print grep !($t=($t+1)%$n), @list;  # a, d