Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper; $Data::Dumper::Indent = $Data::Dumper::Sortkeys = 1;
...
} # end sub

__END__

for my $hit ( map { $_->{'_source'} } @{ $results->{'hits'}->{'hits'} 
+} ) {
    $interesting{ $hit->{'request'} }->{ $hit->{'clientip'} }++;
}

$VAR1 = {
  '/' => {
...
    '192.168.1.1' => 2
  }
};

[ ... ]

...
        say "\t$ip made $interesting{ $resource }->{ $ip } requests";
    }
}

Resource: /
    192.168.1.1 made 1 requests
    192.168.1.2 made 1 requests
Resource: /index.php
    192.168.1.1 made 2 requests