$hash{$_} = pack( 'N',$i++).$hash{$_} for sort keys %hash;