子例程 subroutine

#! /usr/bin/perl
use strict;
use warnings;
print " ---------summation_STDIN_parameter---------- ";
sub total{
    my $array_len = @_;
    my $sum = 0;
    foreach(0..$array_len){
        $sum += $_[$_];
        #sum += 1;
    }
    return $sum;
}
my @comma = qw{ 3 5 1 7 9};
my $dash = &total(@comma);
print "Sum is: $dash. ";
print "Enter some numbers on seperate lines:";
my $dollar_sign = &total(<STDIN>);
print "Sum of those numbers is: $dollar_sign.";
print " ---------summation_STDIN_parameter---------- ";
        
print " ---------_sum_1..1000---------- ";
#my $dot_operator;
my $dot_operator = &total(1..1000);
print "Sum of 1..1000 is: $dot_operator.";
print " ---------_sum_1..1000---------- ";