Hallo und danke für die schnelle Beantwortung der Frage.
Ich habs jetzt so gelöst:

map { s%^,%%g; } $array[0];

Das entfernt mir dann das allererste Komma. Die anderen Komma will ich beibehalten.

Hab mich vorher beim Array verschrieben. Es lautet natürluch so:
my @array = qw (,Wort1 ,Wort2 ,Wort3 ,Wort4)

Die obig genannte Lösung ist bestimmt nicht die Beste, aber hauptsache es läuft erstmals.

Schönen Gruss.