Select Code to Download

my $rows = $dbh->selectall_arrayref("SELECT * FROM your_table", {Slice
+=>{}}, );
my %ips;
...
  $ips{ $row->{colIP} }->{ colPartitionFree } += $row->{colPartitionFr
+ee};
}
print Dumper \%ips;