Hashes.

#!/usr/bin/perl -w
# Hashes

use strict;
{
   my $zeile;           
   my @woerter;   
   my %wortliste; #Hash Deklaration mit %hash_name
   
   $zeile="Der Tag der nach Sonntag kommt ist Montag der der der ist ist Tag Tag Tag";
   @woerter = split (/ /, $zeile); 
   
   # Hash füllen
   my $wort;
   foreach $wort (@woerter) {
      $wort = lc($wort);
      $wortliste {$wort}++;
   }
   
   # Numerische Sortierung nach values. (aufsteigend)
   print "AUFSTEIGEND:\n";
   foreach $wort (sort {$wortliste{$a}<=>$wortliste{$b}} keys %wortliste){ 
      print "$wortliste{$wort} : $wort\n";
   }
   
   # Numerische Sortierung nach values. (absteigend)
   print "ABSTEIGEND:\n";
   foreach $wort (sort {$wortliste{$b}<=>$wortliste{$a}} keys %wortliste){ 
      print "$wortliste{$wort} : $wort\n";
   }
   
   # Alphabetische Sortierung nach keys. (wenn keys = Zeichenketten)
   foreach $wort (sort keys %wortliste){
      print "$wortliste{$wort} : $wort\n";
   }
   
}