sub repl_mongo{
  my ($ref, $depth) = @_;
  return unless $depth;
  if (ref($ref) eq 'ARRAY') {
    ...
  }