delete $data->{"exclude-$k{$_->{name}}-" . $i++} for @a;