Add use strict; use warnings;

#foreach my $item (keys %{$_[0]}){
#   repl_mongo($key,$_[1]-1 );
foreach my $key (keys %{$_[0]}){
    repl_mongo($_[0]->{$key},$_[1]-1 );
}
[download]

Also see index

#if (index("ISODate",$_[0]) >= 0){ 
if (index($_[0],"ISODate") >= 0){
[download]

Note to use Time::Moment->from_string($string); The string must consist of a complete date representation and time of day followed by a zone designator.