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