#!/usr/local/bin/perl -w
use strict;
use Tie::Cycle;

$\=$/;
my @a=qw(want vegas every first night third array my element);

tie my $ok,'Tie::Cycle',[0,0,1];
$ok && print $_ foreach @a;