my @zeilen;
my @dateien = glob "*.csv";              #oder .txt

print "Also hier bin ich @dateien\n";    #hier ist das Array noch da

foreach (@dateien){
	open (OEFFNEN, "$_")			 
	or die "\n\nProblem beim oeffenen von $_ . $! \n";		

	while (<OEFFNEN>) {
		my $tmp = $_;			
		push @zeilen, $tmp;		
	}

	close OEFFNEN;
} 
print "Ich @dateien bin aufeinmal weg \n";    #hier ist es verschwunden