for my $ipv4 ( keys %seen ) {
  my $count = $seen{$ipv4};
  print "$ipv4 : $count\n";
}