my @To_Send = (
    { LI_VN_Mode                    => '00100011' }, # 8 bit
    { Stratum                       => '0' },        # 8 bit
    { Poll                          => '0' },        # 8 bit
    { Precision                     => '0' },        # 8 bit
    { Root_Delay                    => '0' },        # 32 bit
    { Dispersion                    => '0' },        # 32 bit
    { Reference_Identifier          => '0' },        # 32 bit
    { Reference_Timestamp_Sec       => '0' },        # 32 bit
    { Reference_Timestamp_Micro_Sec => '0' },        # 32 bit
    { Originate_Timestamp_Sec       => '0' },        # 32 bit
    { Originate_Timestamp_Micro_Sec => '0' },        # 32 bit
    { Receive_Timestamp_Sec         => '0' },        # 32 bit
    { Receive_Timestamp_Micro_Sec   => '0' },        # 32 bit
    { Transmit_Timestamp_Sec        => '0' },        # 32 bit
    { Transmit_Timestamp_Micro_Sec  => '0' },        # 32 bit
    );

my @SendSntpPacket = map values %$_, @To_Send;
print Dumper \@SendSntpPacket;