How do you perform a perl program that will leave hypens between each item?

[Mousie]

I think I have to use string concatenation inside a foreach loop but am unsure. I need for my items to look similar to this: Yellow-Purple-Red....