use strict;
use warnings;
use Data::Dumper;
use Tie::IxHash;

tie(my %To_Send, 'Tie::IxHash',
    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
);

print Dumper \%To_Send;