foreach my $ref ( sort { $a cmp $b 
				     || 
				     substr($a,1) <=> substr($b,1) 
				 } keys %{$self->{'residues'}{$i}}){
	    print "$ref\t";
	}

##</code><code>##

A95
A96
A97
A98
A99
B1
B10
B11
B12
B13