sub print_all_hash {
  my ($self) = @_;
  foreach my $item (keys $self->{a_hash}) {
    print $self->{a_hash}{$item}{name} . " : " . $self->{a_hash}{$item}{value} . "\n";
  }
}