$self->{'atoms'}{$number}=$atom; #### my @numbers = keys %{$self->{'atoms'}}; #### print $self->{'atoms'}{'2000'}."\n";