#!/usr/bin/perl
use strict;
use warnings;
my $line;
sub calcsum {
   my @funcArray = @_;
     my $funcSum = 0;
     my $funcArr = 0;
   my $arrcount = scalar(@_);
   foreach my $line (@funcArray) {
     $funcSum += $line;
     } 
   return ($funcSum);
   }