foreach jedes wort nur einmal

[Daniel Thoma]

Hallo Peter

Das sollte tun:
my %wordtable = ();
my @words = grep {$wordtable{$_}++ == 0} split(/ /,$satz);

Grüße

Daniel