Select Code to Download

timethese 10000, {
    this => ' ...... ',
    that => ' ...... '
};

timethese 10000, {
    this => sub { ..... },
    that => sub { ..... }
}

use strict;
use warnings;
...
    list    => sub{ 1 for keys %h_list},
    undef   => sub{ 1 for keys %h_undef},
    };