my $extreme = [365_000, undef];
    foreach (<*.log>) {
        $extreme = [-M, $_] if $extreme -> [0] > -M
    }
    my $newest = $extreme -> [1];