foreach my $ref (sort keys %{$self->{'residues'}{'1'}}){
    $last=$self->{'atoms'}{$ref} if defined $self->{'atoms'}{$ref};
    $last=$self->{'protons'}{$ref} if defined $self->{'protons'}{$ref};
}