use strict;
use warnings;

my $string1 = 'xaver';  
my $string2 = 'zeppelin';
my @liste1 = ('anton', 'bert', 'caesar', 'detlef');
my @liste2 = ('fred', 'gustav');

print $liste1[2], "\n";                     # 1
print $liste2[0], "\n";                     # 2
my $anzahl = @liste1; print $anzahl, "\n";  # 3
print scalar @liste2, "\n";                 # 4


push @liste1, 'emil', 'hans';      print join(' ',@liste1), "\n";   # 5
push @liste1, @liste2;             print join(' ',@liste1), "\n";   # 6
push @liste2, $string2, $string1;  print join(' ',@liste2), "\n";   # 7
pop @liste1;                       print join(' ',@liste1), "\n";   # 8
$string2 = pop @liste1;            print join(' ',@liste1), "\n";   # 9
push @liste2, $string2;            print join(' ',@liste2), "\n";   # 10
@liste2 = @liste1;                 print join(' ',@liste2), "\n";   # 11
@liste1 = reverse @liste1;         print join(' ',@liste1), "\n";   # 12
pop @liste1;                       print join(' ',@liste1), "\n";   # 13
$string2 = pop @liste1;            print join(' ',@liste1), "\n";   # 14  
shift @liste1;                     print join(' ',@liste1), "\n";   # 15
$string2 = shift @liste1;          print join(' ',@liste1), "\n";   # 16
unshift @liste1, $string1;         print join(' ',@liste1), "\n";   # 17

print "\n";
	 
foreach my $element (@liste1) {       # 18
  print $element, ' ';                # 19
}
print "\n";

print join(' ', @liste1);             # 20
print "\n";