#!/usr/bin/perl
use warnings;
use strict;
my @dateien = ("a.csv");
my $fh;
print "Also hier bin ich @dateien\n";    #hier ist das Array noch da
foreach my $i (@dateien) {
    open ($fh, "<", "$i");
    while (<$fh>) {}
    close($fh);
} 
print "Ich @dateien bin aufeinmal weg \n";    #hier ist es verschwunden