Select Code to Download

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