my $facet_counts = $response->facet_counts;
my $autId = $facet_counts->{facet_fields}{author_id};
print Dumper(\$autId), "<br>";
for(my $i=0; $i < int(@{$autId}); $i++){
  print @{$autId}[$i], ": ", @{$autId}[++$i], "<br>\n";
};