#!/usr/bin/perl -w
my @zeilen;
$zeilen[0] = 'Zebra';
$zeilen[1] = 'Affe';
$zeilen[2] = 'Loewe';
$zeilen[3] = 'Baer';
$zeilen[4] = 'Pinguin';
my $anzahl = 5;
my $aktion = 1;
while ($aktion){
$aktion = 0;
for (my $i = 0; $i < $anzahl - 1; $i++){
if ($zeilen[$i] ge $zeilen[$i + 1]){
($zeilen[$i], $zeilen[$i + 1]) = ($zeilen[$i + 1],
$zeilen[$i]);
$aktion = 1;
}
}
}
for (my $i = 0; $i < $anzahl; $i++){
print "$zeilen[$i]\n";
}

my @zeilen = qw/ Zebra Affe Loewe Baer Punguin /;

#!/usr/bin/perl -w

my @zeilen = qw( Zebra Affe Loewe Baer Pinguin );
my $anzahl = @zeilen;
my $aktion = 1;

while ($aktion) {
        $aktion = 0;
        for (my $i = 0; $i < $anzahl - 1; $i++){

                # lexikalischer vergleich; 
                # wenn das aktuelle element groesser als das folgende ist
                if ($zeilen[$i] ge $zeilen[$i + 1]){

                        # vertausche ihre positionen
                        ( $zeilen[$i], $zeilen[$i + 1] ) = ( $zeilen[$i + 1], $zeilen[$i] );

                        # weitermachen;
                        $aktion = 1;
                }

                # irgendwann greift die if-Bedingung nicht mehr und
                # $aktion bleibt 0; dann wird die while-Schleife beendet
        }
}

for (my $i = 0; $i < $anzahl; $i++){
        print "$zeilen[$i]\n";
}

for (my $i = 0; $i < $anzahl; $i++){
....print "$zeilen[$i]\n";
}

for my $i (0 .. @zeilen){
....print "$zeilen[$i]\n";
}

my $anzahl = my @zeilen = qw( Zebra Affe Loewe Baer Pinguin );

print "$_\n" for @zeilen;

$"="\n":
print "@zeilen";