@$search_array = grep{$_->{key_inn} eq $$out_href{key_search}} @$aref_hrefs_inn; foreach my $inn_href (@$search_array) { if (check_match($args_href) == 1) { if ($$flags_href{unique} == 1) { $inn_href = undef; } last; } } @$aref_hrefs_inn = grep {$_} @$aref_hrefs_inn;