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