foreach my $r (1 .. $s->{maxrow}) {
    my ($key, $value) = ($s->{"C$r"} // 0, $s->{"T$r"} // 0);
    $max{$key} //= $value;
    $max{$key} < $value and $max{$key} = $value;
    }