If you keep putting scalar values into arrays (@string="BIOINFORMBIOINFORM";) you will never get anywhere. Better read up on Perl's basics. Programming:Perl is a good start.
CountZero
"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law