my %hash;
  $hash{alpha}{state} = eval('$A::alpha_state');
  print '$hash{alpha}{state}=', $hash{alpha}{state}, "\n";