my($max_so_far) = shift @_; my $max_so_far = shift @_; #### my ($x, $y, $x) = (1, 2, 3);