#!/usr/bin/perl -w
#--- <bottlers.pl> ----------------------------------

@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> ----------------------------------