...
    elsif ( ref($data) eq '' ) {
        $_[0] = $subref->($data);
    }
...