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