Help for this page
my($max_so_far) = shift @_; my $max_so_far = shift @_;
my ($x, $y, $x) = (1, 2, 3);