use strict;
use warnings;
use IO::File;

my @zeilen=();
open (DATEI, "</tmp/testdat.txt") or die "Fehler: $!";
while(<DATEI>)
{
   chomp( $_  );
   print "$_ \n";
   push @zeilen, [ split /;/, $_, 4 ];
}
close (DATEI);
print "$zeilen[1][2]\n"