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

##</code><code>##

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

##</code><code>##

  $access{$_}{old} ||= 0;               # defaults to avoid warnings
  $access{$_}{new} ||= 0;
  if ($access{$_}{old} > $access{$_}{new}) {
        push @results, "$_";            # keep results rather than printing
  }

##</code><code>##

  if (($access{$_}{old} || 0) > ($access{$_}{new} || 0)) {
        push @results, "$_";            # keep results rather than printing
  }