#!/usr/bin/perl

use feature qw(say);
use Data::Dumper;

$cliParms = {
  'tcl_defs' => {
    my_var1 => 'a',
    my_var2 => 'b'
  }
};

my %my_tcldefs = %{$cliParms->{'tcl_defs'}};

say Dumper(\%my_tcldefs);