use 5.020; use strict; use warnings; my $TestFile = "testfile"; open (my $tfh,'<',$TestFile) or die "Test File '$TestFile' kann nicht gelesen werden: '$!' !\n"; my @found_arr = (); # nicht %found_arr - das wäre ein Hash while (my $line = <$tfh>) { chomp $line; push @found_arr, $line if ($line =~ /\(/ .. $line =~ /\)/); } # In Perl kann man eine Schleife über ein Array sehr einfach schreiben: for my $found (@found_arr) { say $found; }