for my $value ( $Monat, $Monatstag, $Stunden, $Minuten, $Sekunden ) {
    $value = sprintf "%02d", $value;
}