Select Code to Download

sub rand2 {
    my $foo = shift;
...
    }
    return $foo;
}

sub rand3 {
    my $foo = shift;
...
    }
    return $bar;
}

         Rate rand1 rand2 rand3
rand1  2928/s    --  -27%  -78%
rand2  4008/s   37%    --  -70%
rand3 13282/s  354%  231%    --