my $subHashRef = shift @_; 
$subHashRef->{$key} = $val;