Frequenzliste mit Perl erstellen

[Michael_B]

my @NeueZeilen;

my $Zaehler=1;

my %Daten;

@NeueZeilen = ("wort", "wort1", "wort2", "wort", "wort1", "wort1");

foreach (@NeueZeilen){

#if (exists $Daten{$_}){
#    $Zaehler++;
#    $Daten{$_} = $Zaehler;

}

else{

#             $Daten{$_} = 1;

}

$Daten{$_}}++;

}

Irrgend was mache ich falsch? Ich weiss es leider warum der Script nicht das macht was ich will? danke für eine Antwort,

Du brauchst keine Schleife.

Gruss, Andy