Help for this page
for (map {"#$_"} qw(FF0000 00FF00 0000FF))
#!/usr/bin/perl -wT use strict; ... =output #FF0000 #00FF00 #0000FF