my @list = map {
    $scores[$_] != 0 ? ($_, $scores[$_] * -1.0) : ()
} 0 .. $#scores;