...
$result[-1]->{CODE} = $temp->{CODE};
$result[-1]->{Number} = $temp->{Number};
...