my %counts;
my %sizes;
for (values %inhash) {
  my ($ip, $size) = split /:/;
  next unless defined $ip;
  $counts{$ip}++; 
  $sizes($ip)+= $size;
}

for $ip (keys $counts) {
  my ($count, $size) = ($counts{$ip},$sizes{$ip};
  print "IP Address $ip appeared $count times, for a total size of $size\n";
}