# A door is what a dog is perpetually on the wrong side of @array=('dog', 'door', 'right side'); while (1) { ($array[0],$array[2]) = ($array[2],$array[0]); }