foreach(keys %date){
        if($_=~/$m\/$d\/$y/){
        @n_row=$_;
        #print " - $date{$_} - From Date=$m/$d/$y.<br>";        
             }
    }