use strict;
use warnings;

my @zeilen;
my @dateien = glob "*.csv";
for my $filename (@dateien) {
    open my $FH, "<", $filename	or die "\n\nProblem beim oeffenen von $filename . $! \n";
    push @zeilen, <$FH>;
}