Before: $VAR1 = [ 0, 0, 10, # big bit 10, # medium bit 10 # small bit ]; Printing: 7(.0833) Before: $VAR1 = [ 0, 0, 0, # big bit 0, # medium bit 20 # small bit ]; Printing: 0(.8333) Before: $VAR1 = [ 0, 0, 10, # big bit 20, # medium bit 0 # small bit ]; Printing: 8(.333) Before: $VAR1 = [ 0, 0, 0, # bit bit 20, # medium bit 0 # small bit ]; After: $VAR1 = [ '3.33333333333333', 0, 0, 20, # note medium bit same as before 0 ]; Printing: 3(.333)