if (%data) 
      {
          # We have data to process
          while( my ($key, $value) = each(%data) ) 
          {
		  	if($key =~ '%{User-Agent}i\""')
		  	{
		  		$userAgent = $value;
		  	}
		  	if($key =~ '%t')
		  	{
		  		$date = $value;
		  	}
          }
          $aRequests = $hRequests{$date}{$userAgent};
   		  push @$aRequests, \%data;
   		}