push @array, (1,2,3);
$aeltestes = shift @array;
shift @array;
1 2 3 4 5 6 7 8 9 10 11 12 13
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"; }