open my $outFH, q{>}, $radtagfile
   or die qq{open: > $radtagfile: $!\n};