Select Code to Download

#!/usr/bin/perl
use strict;
...
sub arg_assign2 { my $x = shift; length $x    }
sub noarg       {                length $_    }
sub noarg2      {                length       }

          Rate a_a1  na2   na a_a2  a_s    a
a_a1  538441/s   --  -9% -16% -29% -48% -52%
...
a_a2  756598/s  41%  28%  18%   -- -26% -32%
a_s  1027820/s  91%  74%  60%  36%   --  -8%
a    1112124/s 107%  88%  73%  47%   8%   --