perlperf: make the example dereference case more reasonable#24381

tonycoz wants to merge 1 commit intoPerl:bleadPerl/perl5:bleadfrom

tonycoz:10346-perlperftonycoz/perl5:10346-perlperfCopy head branch name to clipboard