sub Sum {my @s = @_ ? ((0) x shift, Sum(@_)) : @_}

$n = Sum(10..100);
print $n;