open RESULTS, "> $results_file"
                or die "Failed to open $results_file for writing\n";
print RESULTS join("\n", @results);
close RESULTS;