print "  -> Putting it back under sub-structure with key 'scheduled'\n";
        $data->{scheduled}{$key} = $value;