$hash{$_} = { content => $hash{$_}, position => $i++ } for sort keys %hash;

##</code><code>##

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

##</code><code>##

my ($line,$string) = unpack( 'Na*',$hash{$key} );