sub max { my( $i, @l ) = @_; my $j = @l ? max( @l ) : $i; return $i > $j ? $i : $j; } #### sub max { $_[ 0 ] < $_[ -1 ] ? shift : pop while @_ > 1; return @_; }