You mean like this?
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;
I took the liberty of renaming your variables because i see no reason to label them as such. They are what they are. :)
jeffa
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)