use warnings;
use strict;
use diagnostics;

my @arr = ('a'..'z');
print "@arr\n";
foreach my $thing (@arr) {
    my $ele = pop @arr;
	my $stuff = unshift @arr, $ele;
	print "$ele ";
}