You should start by adding the following lines at the start of your code:

use strict;
use warnings;
[download]

Start working through your code defining variables and you'll find a few problems (e.g, delete($Dna[0]); is the first mention of $Dna).