要求：数据是有键盘输入的，个数不定。#! /usr/bin/perlsub total { my $sum=0; while (@_) { ...