Arrays!

[Struppi]

Ein guter weiterer Schritt wäre noch, die Strings in einfache statt doppelte Anführungszeichen zu setzen, falls du keine Variablen reininterpolieren willst (also sowas wie print "Es ist jetzt $uhrzeit";).
Das erspart dir einige potenzielle Fehlerquellen und nerviges Maskieren von Sonderzeichen.

Also:

my @GA = ('GA1', 'GA2');

und zu allem Überdruss hat Perl noch einige nützliche Dinge zum Listenbilden parat:

z.b. in dem Falle:

my @GA = qw(GA1 GA2);
(geht so, natürlich nur wenn die Werte keine Leerzeichen enthalten.)

Struppi.