my $r = 44;
foreach my $key (keys %{$self->{'residues'}{$modelCount}{/^\w$r$/}}){
		print $key."\n";
}