UID;type;No;ACAD;PRÜFEN;EXTERN;MIGRATION;DM;LISP;VBA;UTM;Bemerkungen;Björn prfen;Stellberg;EBL_ERFASSUNG;PRIO;Name;Command;SmallImage;LargeImage;BJ_TBLOGOUT
ID_02;Any;;;;;x;;;x;;;;;;;Zoom auf Straße und Hausnummer;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND STR_HSNR EBL_KANAL";ICBJ0162;ICBJ0162;
ID_03;Any;;;;;x;;;x;;;;;;;Zoom auf Gemarkung/Flur/Flurstück;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND GEM_F_FL ALK";ICBJ0161;ICBJ0161;
ID_04;Any;;;;;x;x;;x;;;;;;;Bildaufbau - Sielkataster/ALK;"^C^C(C:BJ_TBLOGOUT);-vbarun BJ__TBWSC_1 80 ""NULL"" ""EBL_KANAL"" ""LAYER_ALK_AW""";ICBJ0331;ICBJ0331;

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

my $file='MenuGroup_bereinigt.csv';
my $s_delimiter = ";";

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

my $csv = Text::CSV->new({sep_char => "$s_delimiter"});
#my $csv = Text::CSV->new ();

# first line
my $key_names=$csv->getline( $fh );

# Array of hashes
my @data;

# read File
while( my $row = $csv->getline( $fh ) )
{
  my $value={};
  $value->{$key_names->[$_]}=$row->[$_] for(0..$#$key_names);
  push(@data,$value);
}

# Formated Output
use Data::Dumper;
print Dumper(\@data);