#foreach my $item (keys %{$_[0]}){ # repl_mongo($key,$_[1]-1 ); foreach my $key (keys %{$_[0]}){ repl_mongo($_[0]->{$key},$_[1]-1 ); } #### #if (index("ISODate",$_[0]) >= 0){ if (index($_[0],"ISODate") >= 0){