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
}