my %counter;
while ( <DATA> ) {
    my ( $name, $number ) = ( split /\s+/ )[0,2];
    $counter{$name} += $number;
}
print "$_: $counter{$_}\n" foreach keys %counter;
__DATA__
Jack  Monday  4
Eddie Tuesday 6
Jack  Friday  7