sub sum_of {
        my ($item, @list) = @_;
        return ((defined $item) ? $item + sum_of (@list) : 0);
    }
    print sum_of (1..10), "\n";