'newB' => sub {
            for my $time (@ps) {
                my @mult = (1, 60, 3600);
                my $age = $time =~ s/^(\d+)-// ? $1 * 86400 : 0;  # age in seconds
                $age += $_ * shift @mult for reverse split /:/, $time;
            }
        },