Select Code to Download

use strict;
use warnings;
...
    R => sub { foo( \$R )},
    Q => sub { foo( \$Q )},
}

C:\>perl test.pl
    Rate     Q     R
Q 1.30/s    --  -96%
R 30.9/s 2279%    --