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