Gast+2008-03-26 19:04:47--

jo;
also ich weiss schon wie man den mitelwert ausrechnet: so
foreach (@array1) {
$sum += $_ for(@array1);
my $average = $sum / scalar(@array1);

1
2

use List::Util qw(sum);
my $average = sum(@array) / @array;