# IP-Adressen:
my %unique_ips;
$unique_ips{$_->{ip}}++ for(@data);

print Dumper(\%unique_ips);

# Art der Zugriffe
my %accesstypes;
for my $entry (@data)
{ $accesstypes{$1}++ if($entry->{request}=~/^(\w+)\s/); }

print Dumper(\%accesstypes);

# Zugriffe pro Datei:
my %files;
for my $entry (@data)
{
  my $req=$entry->{request};

  if($req=~/^\w+\s+(.+$)\s+HTTP.+?$/)
  { $files{$1}++ }
}

print Dumper(\%files);