my $mittel = $summe / @fail;

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