--- <bottlers.pl> ----------------------------------
#!perl -w

@bottlers = ("Signatory","Gordon \& MacPhail", #hier ne Änderung
	     "The bottlers");
print "Abfüller:\n";
foreach $bottler (@bottlers) {
print "- $bottler\n;
}
print "\nUnd nun das Ganze alphabetisch sortiert:\n";
@sorted = sort @bottlers;
$number_of_elements = @sorted;
for($i=0;$i < $number_of_elements;$i++) { # hier vor $i++
  print "- " . $sorted[$i] ."\n";
}
--- </bottlers.pl> ----------------------------------