use Data::Dump; dd $data_to_sum[0]->[$c], $divide_by; $data_to_sum[0]->[$c] /= $divide_by if $divide_by; print $data_to_sum[0]->[$c], "\n"; __END__ ("", 123) 0