Select Code to Download

$graph->set(
'dclrs' => [ qw(lblue lyellow blue yellow lgreen lred
green red purple orange pink dyellow) ]

@colour_array = ("lblue", "lyellow", "blue", "yellow", "lgreen", "lred
+", "green", "red", "purple", "orange", "pink", "dyellow");