sub total{
        my $sum = shift(@_);
        foreach (@_){
                $sum += @_;
                }