#!/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";
}