in reply to Comments trouble
What happens when you run the program in the perl debugger?
Are you using strict and warnings?
-- TTTATCGGTCGTTATATAGATGTTTGCA