# ...
foreach my $key2 (@aminos) {
    no warnings 'uninitialized';
    printf OUT ("$forprint ", $A->{$key}->{$key2});
}
# ...