Your problem is that you have array references not arrays. You therefore need to access the individual elements using, for example, $dna->[$i] and not $dna[$i].

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg