@contents = <>;
shift(@contents);
$n = 0;
$max = 0;
foreach $line (@contents){
    $n++;
    @data = split(/,/, $line);
    shift(@data);
    $sum = 0;
    foreach $x (@data){
	$sum += $x;
    }
    if ( $sum > $max ){
	$max_n = $n;
	$max = $sum;
    }
}
print "合計値が最大なのは $max_n 行目\n";
