Here is a corrected version of your loop in calcarr. You might like to reread a chapter about perl arrays because it looks like you have some wrong notions about them

# my @funcArr = 0;
  my @funcArr= (); #this is how an array can be initialized to be empt
+y
    foreach my $line (@funcArray) {
#      @funcArray /= 2;
       $line/= 2; #$line is aliased to each value of the array in the 
+loop
    push(@funcArr,$line);   
 }
[download]