my $mittel = $summe / @fail;

print "Ausfaelle: " . join( ", ", @fail ) . "\n";
print "$summe Sekunden insg. und ";
print "$mittel Sekunden im Mittel pro Ausfall\n";
open $mittel, '>>', 'mittel.txt' or die $!;