sub sum { my$t;$t+=$_ for@_;$t }