my @l_list = map [ $_, $scores[$_] * -1.0 ], 0 .. $#scores;

print << "SVG";
... @{[
    join ",", map @$_, grep $_->[0] != 0, @l_list;
]} ...