here's three different ways.. note that the second two make it trivial to output in a sorted manner (something like sort keys %ips instead of just keys %ips):

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

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

printf "%s,%d,%d\n", $_, $ips{$_}->{colPartitionSize}, $ips{$_}->{colP
+artitionFree} for keys %ips;
[download]