sub radd {
    return( defined $_[0] ? $_[0] + radd(@_[1..$#_]) : 0 );
}
my $sum = radd(1..10);