my @colors = map { "#$_" } (qw/000000 AA0000 00AA00 0000AA
                                   444444 FF0000 00FF00 0000FF
                                   888888 FFFF00 00FFFF FF00FF
                                   CCCCCC FFAA00 00BBBB 880088
                                   FFFFFF AA8866 008888 660066/);