Zeile Splitten und in Variable packen

[jonny]

Hallo,

bisher bin ich immer wie folgt vorgegangen, um eine bestimmte Spalte aus einer Zeile ausgeben zu lassen.

Beispiel...

Inhalt einer Datei:
xxx;dies;xxx;xxx
xxx;ist;xxx;xxx
xxx;ein;xxx;xxx
xxx;test;xxx;xxx

meine Schleife:

open(DT,"<Datei");
while(<DT>) {
   my @part=split /;/,$_;
   print "$part[1]\n";

}

Nun finde ich das sehr umständlich. Gibt es eine bessere Methode, die richtige Spalte aus der Zeile zu ziehen? Ich hatte es mal mit push versucht, aber das habe ich leider nicht hinbekommen - zum Einen will push ein Array statt eine Variable und da kommen immer ARRAY{...}'s heraus :-)

push $daten [(split /;/)[1]],$_;

Was mache ich da falsch?

Mfg,
Jonny