Why not try to take the no strict/strict block outside of the tight loop.

no strict 'refs';
while (true) {
&$func_name(...);
}
use strict;

vs

while (true){
no strict 'refs';
&$func_name(...);
use strict;
}
[download]

-Waswas