while( my ($ip, $h) = each %ips ){
  printf "%s,%d,%d\n", $ip, $h->{colPartitionSize}, $h->{colPartitionFree};
}

foreach my $ip ( keys %ips ){
  my $h = $ips{$ip};
  printf "%s,%d,%d\n", $ip, $h->{colPartitionSize}, $h->{colPartitionFree};
}

printf "%s,%d,%d\n", $_, $ips{$_}->{colPartitionSize}, $ips{$_}->{colPartitionFree} for keys %ips;