my @array_2 = grep {my $element = \$_; $$element =~ /foo/} @array_1;