#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

# Ausgabe von Datenstrukturen
use Data::Dumper;

$input_file_name = "test_file.csv";

my $csv = Text::CSV->new ( { sep_char => ',', eol => $\  } )

open(my $fh,'<',$input_file_name) or die "Can not open file $input_file_name ($!)\n";

my @data;
while ( my $row = $csv->getline( $fh ) )
{
  push(@data,$row);
}

print Dumper(\@data);