my $max_of_at_least_zero = MAX(0);
    $max_of_at_least_zero->($_) while <>;
    # ...