#!/usr/bin/perl

use strict;
use Text::CSV;

my %hash;
my $csv = Text::CSV->new();

while( my $line = <DATA>) {
    if ( $csv->parse($line) ) {
        my @columns = $csv->fields();
        next if ( $columns[0] eq "Name" );
        $hash{$columns[1]}->[0]++;
        $hash{$columns[1]}->[1] = exists $hash{$columns[1]}->[1]
           ?  $hash{$columns[1]}->[1] + $columns[2]
           : $columns[2];
    }
}

print "$_ -- $hash{$_}->[0] -- $hash{$_}->[1]\n" for ( keys %hash );

__DATA__
"Name","Date","size"
"Name One","05/19/2009","151397376"
"Name Two","05/19/2009","123333441"
"Name One","05/20/2009","183439993"
"Name Three","05/20/2009","8098123089"