my $key = $list[$_]
$key =~ s[(\d+)][ pack "N", $1 ]ge;