my %hash ;
  tie(%hash, 'TieHash' , $this) ;
  *$this = \%hash ;

  ## In the place of:
  ## *$this = {A => 10 , B => 20 , C => 30} ;