@contents = <>;
shift(@contents);
foreach $line (@contents){
    @data = split(/,/, $line);
    shift(@data);
    $sum = 0;
    foreach $x (@data){
	$sum += $x;
    }
    print "$sum\n";
}
