foreach jedes wort nur einmal

[peter]

$KeybSatz = "$datei";
$KeybSatz =~ s/[^a-z0-9A-Z]/ /gi;
$KeybSatz  =~ s/  / /gi;

@Keyb = split(/ /,"$KeybSatz");
$KeybSatzAnzahl =@Keyb;
 foreach(@Keyb)  {
print " $_\n";
}
soll aber keine doppelte wörter auslesn.

mfg peter