foreach my $ref (keys %$self){
   next unless $self->{$ref}{'chain'} = 1;
   # process chain 1 atoms 
}