Select Code to Download

    $pm->run_on_finish(
        sub {
            $buckets->{$_[0]} = $_[1] for @{$_[5]};
        }
    );

$data_structure_reference = [
    ['a', 1],
...
    ['l', 1],
    ['p', 2],
]