Frequenzliste mit Perl erstellen

[andy]

Hallo,

leider funktioniert der script noch nicht.
Ich zeige mal den code.

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;
 }
}

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

Gruss, Andy