#!/usr/bin/perl use strict; use warnings; use Color::Spectrum qw (generate); $uniqueBinders = scalar (keys %bindersHash); my @colours = generate($uniqueBinders, '#FF0000', '#0060BF'); #### This hash %bindersHash HISCLTFGR = 16 MQLFHLCLI = 8 WGMDIDPYK = 4 YVNVNMGLK = 3 AYRPPNAPI = 2 ELMNLATWV = 2 EYLVSFGVW = 1 FFPSIRDLL = 1 FLPSDFFPS = 1 IISCSCPTV = 1