my $roundParams  = {
    'AllowParticipantsToSeeEachOther'                    => JSON::PP::true,
    'DurationInMinutes'                                  => 10,
    'MaxGamePegValue'                                    => 5,
    'MaxNumberOfCrackAttemptsPerCode'                    => 18,
    'MaxNumberOfCrackAttemptsPerTeam'                    => 0,
    'NumberOfDefaultHostParticipants'                    => 1,
    'NumberOfPegsInRound'                                => 4,
    'RoundStartTime'                                     => "\\/Date(" . $milliSeconds . ")\\/",
    'TimeBetweenRoundATimeBetweenRoundAttemptsInSeconds' => 10
};
say Dumper $roundParams;
say $roundParams->{'RoundStartTime'};
say to_json $roundParams;

##</code><code>##

{"AllowParticipantsToSeeEachOther":true,"TimeBetweenRoundATimeBetweenRoundAttemptsInSeconds":10,"NumberOfDefaultHostParticipants":1,"MaxNumberOfCrackAttemptsPerTeam":0,"RoundStartTime":"\\/Date(1401265928689)\\/","NumberOfPegsInRound":4,"DurationInMinutes":10,"MaxNumberOfCrackAttemptsPerCode":18,"MaxGamePegValue":5}