my @array_2 = grep { our $element; local *element = \$_;
                     $element->func() eq 'TEST'
                   } @array_1;