my $out_file = "results.csv";
open my $OUTFILE, q{>}, $out_file;