Select Code to Download

#!/usr/bin/perl
use strict;
...
       a_c_c => sub { my $c = $c[0][0][0]; $c->[0] * $c->[1] },
    a_no_c_c => sub { $c[0][0][0][0] * $c[0][0][0][1] },
});

$ perl depth.pl
             Rate    h_c_a h_no_c_a
...
             Rate a_no_c_c    a_c_c
a_no_c_c 549898/s       --     -12%
a_c_c    625570/s      14%       --