#!/usr/bin/perl

use strict;
use warnings;

my $file = '/test.csv';

my @array;

open my $fh, '<', $file or die $!;
while( my $line = <$fh> ){
    chomp $line;
    push @array, [split /;/, $line]; # schiebe die einzelnen Spalten in das Array
}
close $fh;

# gib Spalte 3 aus Zeile 4 aus
print $array[3]->[2];