sub addsome {
    ++$_[0] for 1..$_[1];
}