my $max; for my $i ( 1 .. $n - 1 ) { $max = -~0;