my $y = 0;
my @list;
foreach (@scores) {
    if ($_ != 0) {
        push(@list, $y++, @list, $_ * -1.0);
    }
}
my $list = join(",",@list);

print << "SVG";
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg  PUBLIC "-//W3C//DTD SVG 1.0//EN"
 "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg height="200" width="200">
  <line x1="0" y1="0" x2="80" y2="0"/>
  <polyline points="$list" style="stroke: black; width: 1px; fill: none;"/>
</svg>
SVG

##</code><code>##

my $y = 0;
my @list;
foreach (@scores) {
    if ($_ != 0) {
        push(@list, $y++, @list, $_ * -1.0);
    }
}

print << "SVG";
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!DOCTYPE svg  PUBLIC "-//W3C//DTD SVG 1.0//EN"
 "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg height="200" width="200">
  <line x1="0" y1="0" x2="80" y2="0"/>
  <polyline points="@{[ 
      join(",", @list)
  ]}" style="stroke: black; width: 1px; fill: none;"/>
</svg>
SVG

##</code><code>##

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

##</code><code>##

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

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