use strict;
use warnings;

my @x = (1,2,3,4,5);
$, = ' ';

for my $i (6..10){
 print "\nSchleifenanfang: @x\n";
 push @x, $i;
 print "nach dem push:   @x\n";
 shift @x;
 print "nach dem shift:  @x\n";
}