@neu = ();
@alt = qw(ABC die Cleo lief im Schnee);
foreach (@alt) {push @neu, pop @alt;}
print "@neu\n";	# Schnee im lief
#***********************************************
@neu = ();
@alt = qw(ABC die Cleo lief im Schnee);
while (@alt) {push @neu, pop @alt;}
print "@neu\n";	# Schnee im lief Cleo die ABC
#***********************************************
@neu = ();
@alt = qw(ABC die Cleo lief im Schnee);
foreach (@alt) {push @neu, shift @alt;}
print "@neu\n";	# ABC die Cleo
#***********************************************
@neu = ();
@alt = qw(ABC die Cleo lief im Schnee);
while (@alt) {push @neu, shift @alt;}  
print "@neu\n";	# ABC die Cleo lief im Schnee