Select Code to Download

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

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

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