sub make_stat {
  my ($tmpdir, $logfile) = @_;
  my @words;

  open(LOG, "<$tmpdir/$logfile") or die("Can't open logfile. $!");
  for my $line (<LOG>) {
    #print $line;
    my @parts = split(/ /,$line);
    my $time = shift(@parts);
    my $user = shift(@parts);

    for (my $i=0;$i<scalar(@parts);$i++) {
      next if ( (length($parts[$i]) < 3) || ($parts[$i] =~ m/(;|:|\(|\)|\/|<|>|)/) ); #smilies und kurze worte aussortieren
      push(@words, [$parts[$i], 1]) if (scalar(@words) < 1);

      my $found = 0;
      my $j = 0;
      for (@words) {
        if ($words[$j][0] eq $parts[$i]) {
          $words[$j][1]++; #wort hochzaehlen
          $found = 1;
          last;
        }
        $j++;
      }
      push(@words, [$parts[$i], 1]) unless $found;
    }
  }
  close LOG or die("Can't close logfile. $!");
  for my $i (0..scalar(@words)) {
    print "$words[$i][0], $words[$i][1]\n";
  }
} #sub make_stat