1.where is your random_sequence function ending curly braces ? 
2.what you are trying to do in this line my $sequence = m/\w*[ACTG]{5}*/;
3.$DNA argument passed to the random_sequence function but not used in function.
4.$DNA get assigned scalar value and later accessing as array in this line $DNA[$random_sequence] = $DNA;