my @a=qw(las vegas every saturday night third is my element);
my @every_3rd = @a[grep { not ($_+1) % 3 } 0..$#a];
print "@every_3rd";