Select Code to Download

        Rate copied  proto caller direct called  NAMED
copied 105/s     --   -52%   -62%   -62%   -62%   -62%
...
direct 277/s   164%    26%     1%     --    -0%    -1%
called 277/s   164%    26%     1%     0%     --    -1%
 NAMED 279/s   166%    27%     2%     1%     1%     --

          Rate copied called caller  proto  NAMED direct
copied 15741/s     --   -54%   -57%   -66%   -74%   -74%
...

 NAMED 60268/s   283%    74%    65%    31%     --    -2%
direct 61563/s   291%    78%    68%    34%     2%     --

use constant {
    STRING=>0,
...
sub foo{
    $_[STRING] =~ tr[...][...] if $_[NUMS] == '123';
}

#! perl -slw
use strict;
...
        ' NAMED_large'  => q[ NAMED_args   $large_text,  $large_nums; 
+],
    });
}