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