while (<CSV_OUT>) {
        chomp;
    my @line = split /,/;
    my $name = shift @line;
 
    if (exists $servers{$name}) {
        foreach my $index (0..$#line) {
            $servers{$name}[$index] += $line[$index];
        }
    } else {
        $servers{$name} = [@line];
    }
}