use strict;
use warnings;
use Data::Dumper;
my $order_daten = $ENV{ORDNER_DATEN}; # Pfad zu den Daten

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

foreach my $name (@stations_namen) {

########  EINLESEN 
 
    my $filename = "$order_daten$name/${name}_$datum_heute.txt";

    open my $eingang, '<', $filename or die "can't open $filename: $!\n" ;

    my @stationsdaten = <$eingang>;
    print Dumper \@stationsdaten;

}