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

@bottlers = ("Signatory","Gordon & MacPhail",
	     "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++) {
  print "- " . $sorted[$i] ."\n";
}
--- </bottlers.pl> ----------------------------------