@scorelist = ();
$scorelist[1] = "100";
$scorelist[2] = "200";
$scorelist[3] = "300";
$scorelist[4] = "400";

print "::scorelist = ".join(', ',@scorelist)."\n";