I assume thie script runs with -w or use warnings.

So all I can come up with is drop warnings for the block in question:

no warnings 'syntax';

for (qw ( #FF0000 #00FF00 #0000FF )) ...

use warnings 'syntax';
[download]