Helpful and working, the old $_[0] changed because it's a pointer to the real data:

$_[0] = $subref->($data);
[download]

Thanks!