print "i: $i, sum: $sum, array: @array, scalar: ", scalar(@array), "\n";