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 = grep { /\(/ .. /\)/ } <$tfh>;
chomp (@found_arr);

say for @found_arr;