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";
};

##</code><code>##

$VAR1 = \[ '9291', 131, '3389', 88, '622', 85, '123715', 81, '5091', 63 ];
9291: 131
3389: 88
622: 85
123715: 81
5091: 63