open(my $fhNummern, '<', "StudioNummern.txt") or die $!;
my @snr=<$fhNummern>;
chomp @snr;
close ($fhNummern);