# Connect to the database
my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;");

# Associate our csv file with the table name 'results'
$dbh->{'csv_tables'}->{'results'} = { 'file' => "file.csv"};

my $row = "IP,Partition,PartitionSize,PartitionFree";
my %ips;
foreach my $row (@$row){
  $ips{ $row->{colIP} }->{ colPartitionSize } += $row->{colPartitionSize};
  $ips{ $row->{colIP} }->{ colPartitionFree } += $row->{colPartitionFree};
}
print Dumper \%ips;