my $csv = Text::CSV->new();    # create a new object
my ( $line, @data );
open (DATEI, "meinedaten.csv");
while( defined( $line = <DATEI> ) ) { 
  my $status = $csv->parse($line);         # CSV felder parsen

  if ($status) {
    @columns = $csv->fields();            # da sind die Spalten
    push @data, [ @colums ];              # Daten sichern
  } else {
     die ("Fehler: " . $csv->error_input ); # Fehler melden
  }
}
close (DATEI);