my $hash_ref = {
  a => 1 ,
  b => 2 ,  
  } ;
  
  local(*hash) ;
  *hash = $hash_ref ;

  print "$hash{a}\n" ;
  print "$hash{b}\n" ;