my @array = qw(balack white green red);

my @tagged_array = map { ... } @array;
my $result = join ... @tagged_array;

print $result;