foreach my $a (@names){
	if($a->atomName eq 'N'){
	    $main{1}=$a;
	}elsif($a->atomName eq 'CA'){
	    $main{2}=$a;
	}elsif($a->atomName eq 'C'){
	    $main{3}=$a;
	}elsif($a->atomName eq 'O' || $a->atomName eq 'O\''){
	    $main{4}=$a;
	}
    }

##</code><code>##

foreach my $i (sort {$a <=> $b} keys %main){
  push @values, $main{$i};
}