my @snr = do { open(my $fh, '<', "StudioNummern.txt") or die $!; <$fh> }; chomp @snr;