my %data;

<DATA>;
while (<DATA>) {
    my ($row, @values) = split;
    $data{$row} = sum @values;
}

say $data{$_} for shuffle keys %data;