Select Code to Download

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

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