foreach my $key2 (@aminos) {
    next unless defined $A->{$key}->{$key2};
    printf OUT ("$forprint ", $A->{$key}->{$key2});
}