my @lines = <DNAFILE>; 
while (<DNAFILE>) {
  say $_;
}