local $,=' ';
my $i=0;
my @a=qw(las vegas every saturday night third is my element);
print grep { ! (++$i %3) } @a;
[download]

prints "every third element";

-- stefp