use Data::Alias qw( alias );
my @array_2 = grep { alias my $element = $_;
                     $element->func() eq 'TEST'
                   } @array_1;