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