sub get {
  my $key=shift;
  for my $h (@hash_chain) {
    return $h->{$key} if exists $h->{$key};
  }
  return undef;
}