for (map {"#$_"} qw(FF0000 00FF00 0000FF))

##</code><code>##

#!/usr/bin/perl -wT
use strict;

print "$_ " for (map {"#$_"} qw(FF0000 00FF00 0000FF));
print "\n";

=output
#FF0000 #00FF00 #0000FF