my %my_tcldefs = %{$cliParms->{'tclDefs'}}; #### print Dumper \%cliParms; #### $VAR1 = { 'tcl_defs' => { my_var1 => 'a', my_var2 => 'b' } };