push(@dritte_Zeile, "\t \t");
push(@dritte_Zeile, "Minimum \n");

while (<$fh>)    
{
        
    my @split = split(/,/, $_);
    print "$split[3]\n";           #da steht dann beispielsweise
                                         spalte drei drin

}

my %spalten;
while (<$fh>) 
{
   my @split = split(/,/, $_);
   $spalten{3} = [] if not defined $spalten{3}; # Falls noch kein Array gespeichert
   push (@{$spalten{3}}, $split[3] );    #ein Wert von Spalte 3 drin
}

foreach my $wert ( @{$spalten{3}} ) {
  print "$wert\n";
}
print "2. Wert aus Spalte 3", $spalten{3}->[1];

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
my $select = q~SELECT min(Spalte1) FROM csvfile~;
my $sth = $dbh->prepare($select) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

my ($min) = $sth->fetchrow_array();
print $min;

Spalte1;Spalte2;Spalte3
12;hallo;3
10;test;muster
19;mann;frau

C:\>perl csv.pl
10

#!/usr/bin/perl

C:\>perl csv.pl

#!/usr/bin/perl

C:\>perl csv.pl