Use of uninitialized value in printf at aprende3.pl line 590

##</code><code>##

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