#!/usr/bin/perl
use strict;
for(my $i=0; $i<@ARGV; $i++) { process($ARGV[$i]); }
sub process {
      my ($file, $n, $avg, $s2, $median, %len_stat) = $_[0];
      open(FILE, $file) or die;
      foreach my $line (<FILE>) {
            chomp($line);
            if($line =~ /(\w+)$/) { # verarbeitet auch Frequenzlisten
                 my $len = length($1);
                 $len_stat{$len}++;
                 $avg += $len;
                 $n++;
            }
      }
      close(FILE);
      # arithmetisches Mittel
      $avg /= $n;
    print("$avg\n");
}