Select Code to Download

my $y = 0;
my @list;
foreach (@scores) {
...
  <polyline points="$list" style="stroke: black; width: 1px; fill: non
+e;"/>
</svg>
SVG

my $y = 0;
my @list;
foreach (@scores) {
...
  ]}" style="stroke: black; width: 1px; fill: none;"/>
</svg>
SVG

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

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

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