while() { push (@zeilen, [$_,( split /;/ )[3]]); }