@array = qw/v w x y z/;

for(1 .. $nn) {

# I was expecting the array to shift
# at every loop, and I could call on
# the first position every time.

print OUT $array[0] , "\n";

$slide = shift(@array);
push(@array, $slide);

}