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