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

##</code><code>##

$Sub_Total[$key] +=$val;