my $csv = slurp Text::CSV({separator => ';', file => $filename});
# $csv ist ein AoA und alles ist gut;)