my $y = 0;
my @list;

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