I would much rather depend on Tie::IxHash than having to prepend my keys with numbers to preserve order. This could lead to a less than desirable maintenance issue down the road.

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;
[download]

UPDATE: I never said anything about scalability. I stated my preferences. You can labor away at such code all you want to. How you derive "decrease dependencies" from "reduce defined scalars" makes zero sense as well.

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)