sub FETCH {
  my $self = shift;
  my $key = shift;

  foreach my $hash (@$self)
    { return $hash->{$key} if exists $hash->{$key} }

  return undef;
}