printf "<caption>%s</caption>\n", $caption;
for my $num (0 .. $#{$colours}) {
my ($rgb, $name) = split /:/, $colours->[$num], 3;
printf "<caption>%s</caption>\n", $caption;
for my $num (0 .. $#{$colours}) {
my ($rgb, $name) = split /:/, $colours->[$num], 3;