open my $INPUT_FILE, '<', $DNA or die;