#Erspielte Zeit wird eingegeben.
#Das erste Argument ist die erspielte Zeit die in $t gespeichert wurde.
#$c wird auf den Wert $t (<STDIN>) gesetzt, indem $t als 1. Argument für die Subroutine zur Verfügung gestellt wird.
#Die Anweisung überprüft auf die Vollständigkeit der Argumente.
#Fals etwas nicht der Überprüfung entspricht wird eine Warnung ausgegeben.
#Nun werden die restlichen Argumente ("Klassen 1-5 ($_[1]..$_[5])") genommen. 
#Jetzt wird jedes Element aus @_ mit $c (der Wert von $t (<STDIN>)9 verglichen.
#Wert $_ aus @_ wird zu @div hinzugefügt, wenn $c kleiner als $_ ist um später den Divisor im skalaren Kontext zu ermitteln.
#Wenn nun $c ($t) größer ist als $_ soll gerechnet werden.
#Divisor wird nun aus @div (von vorher) ermittelt (skalarer Kontext).
#result1 (re1) resultiert aus $t (<STDIN>/Dividend) durch den divisor.
#$zre ist ein Zwischenergebnis um auf den Faktor zu kommen
#result2 (re2/Produkt) ergibt sich aus $re2 (faktor1) und $zre (faktor2)
#$re2/mein Ergebnis wird ausgegeben und "sichtbar gemacht".