ObMapHack:

If all your elements start with '#' you can rip it out, then put it back in using map....

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

As in:

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

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

=output
#FF0000 #00FF00 #0000FF
[download]

-Blake