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