Select Code to Download

   my $IP = #extract from %data;
   my $userAgent = #extract from %data;
   my $date = #extract from %data;
   my $aRequests = $hRequests{$IP}{$userAgent}{$date};
   push @$aRequests, \%data;

   while (my ($IP, $hUserAgents) = each(%hRequests)) {
      next if #IP is boring;
...
      }
   }