my($key);
    my($val);
    my(%subHash);
    $key = shift @_;
    $val = shift @_;
    %subHash = %{shift @_};