my ($i, @treffer) = (0);
foreach (@wort) {
  if ($benutzer_eingabe =~ /$_/i) {
    $treffer[$i] = "$_";
    $i++;
  }
}