Have you used strict at the beginning of the program? I would suggest that. If you already have used strict at the beginning of the program, then I do not see you having 'declared' the variable $FastaSeqOfDataBase with my.

If this doesn't help, I'd suggest the classic 'Static Verification' technique to dry-run the code with sample data and determine what might cause the error.

Hope this helps!