$ORDNER_DATEN=$ENV{'ORDNER_DATEN'}; # Pfad zu den Daten

@STATION_NAMEN=("1231","1232","1233","1234","1235");

foreach (@STATION_NAMEN)
{

$stationsname=$_;
@stationsdaten=();

########  EINLESEN 
 
 $filename=$ORDNER_DATEN . $stationsname ."/". $stationsname . "_$datum_heute.txt";
# $filename=$ORDNER_DATEN . $stationsname ."/". $stationsname . "_$datum_gestern.txt";
 open(EINGANG,'<'.$filename ) || die "can't open $filename \n" ;

 @stationsdaten=<EINGANG>;

 close(EINGANG);

}