Select Code to Download

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

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

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