open RESULTS, ">$results_file" or die;
print RESULTS "$_\n" for @results;
close RESULTS;