Replace

$Sub_Total[$key] += $data{$key}[$val];
[download]

with

$Sub_Total[$key] +=$val;
[download]

You should then come back and tell us what you did wrong in the original.