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

##</code><code>##

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