@DNA= <DNAFILE>

##</code><code>##

tie @DNA, 'Tie::File', "your_filename_goes_here", OPTIONS_GO_HERE or die "Can not tie file ($!)";