my($max_so_far) = shift @_;
my $max_so_far = shift @_;