map {
	my $key = $list[$_];
	$key =~ s[(\d+)][ pack "N", $1 ]ge;
	$key . pack "N", $_
	} 0..$#list