#!/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");
}

for(my $i=0; $i<@ARGV; $i++) { process($ARGV[$i]); }

for my $arg ( @ARGV ) { process( $arg ) }

for my $glob ( @ARGV ) {
    for my $file ( glob $glob ) {
        process $file;
    }
}

process $_ for map glob, @ARGV;

#!/usr/bin/perl
use strict;
use warnings;

# In @ARGV stehen standardmaessig alle Argumente, die ueber die
# Kommandozeile mitgegeben wurden. Hier wird das @ARGV Array
# mittels der for-Schleife durchlaufen. Jedes Element wird
# im Angeloperator $_ abgelegt. Uebersetzt koennte man es so
# beschreiben:
#    schreibe den Rueckgabewert von process($_) fuer jedes Element von @ARGV
print process($_), "\n" for @ARGV;

sub process {
   # mit shift wird das Array @_ um den ersten Wert gekürzt und
   # dieser Wert wird in $file gespeichert.
   # In @_ sind die Argumente abgelegt, die der Funktion mitgegeben
   # werden. @_ kann man mit @ARGV vergleichen.
   my $file = shift;
   my ($n,$avg);

   # ich habe deine runden Klammern etc. einfach mal weggelassen,
   # weil es mein Schreibstil ist und es mir optisch besser gefaellt :-)
   # wenn ein Skript mit "or die" beendet wird, dann vergiss
   # $! nicht, denn darin steht, weshabl "open" eventuell fehlschlägt
   open FILE,'<',$file or die $!;

   # Filehandles sollten immer mit einer while-Schleife durchlaufen
   # werden. Das hat wohl was mit dem Erkennen von eof (End-of-File)
   # zu tun...
   while (my $line = <FILE>) {
      chomp($line);

      # ein 'next' ist in diesem Fall optimal, damit sofort die
      # naechste Zeile bearbeitet werden kann und die Schleife
      # nicht erst noch nach Anweisungen nach deinem if sucht
      next unless $line =~ /(\w+)$/;
      my $len = length($1);
      $avg += $len;
      $n++;
   }
   close FILE;
   # arithmetisches Mittel + Rueckgabe des Wertes
   return $avg / $n;
}

   # Filehandles sollten immer mit einer while-Schleife durchlaufen
   # werden. Das hat wohl was mit dem Erkennen von eof (End-of-File)
   # zu tun...