Einfache Frage, aber wichtig.

[Struppi]

schreibt man so:

if ($items[5] eq 1)
   {
      $varcolor = $color;
      $color = "#E6CCFF";
   }

wahlweise das "{" eine Zeile höher, ist aber Ansichtssache.

das weiss ich auch, ich wollte aber wissen ob ich das komma richtig gesetzt habe, weil ich es in einer zeile haben will.

naja, du weißt offensichtlich nicht.
Ein Komma trennt einzelne Elemente einer Liste, das Semiklon trennt einzelne Befehle und das Newlinezeichen ist nur für den lesenden von Relevanz.

du kannst natürlich auch eine Liste von Befehlen benutzen:
my ($a, $b, $c);
my @l = ($a = 2, print "Hallo", $b = 3, $c = 3  );
print "@l\n $a $b $c";

eine Liste zu erzeugen ist aber nicht sinnvoll, wenn du Befehle trennen willst.

Struppi.