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