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