Select Code to Download

while (my ($k, $v) = each %{$href}) { push @lines, pack('NA*', -$v, "$
+k\t$v") }

for my ($k, $v) (%{$href}) { push @lines, pack('NA*', -$v, "$k\t$v") }