$self->{'atoms'}{$number}=$atom;

##</code><code>##

my @numbers = keys %{$self->{'atoms'}};

##</code><code>##

print $self->{'atoms'}{'2000'}."\n";