Select Code to Download

use strict;
use warnings;
...
print cycle2 $array1;
my @array = qw/Tic Tac/;
print cycle2 @array for 1..4;

1
2
3
...
Tac
Tic
Tac