$pm->run_on_finish( sub { $buckets->{$_[0]} = $_[1] for @{$_[5]}; } ); #### $data_structure_reference = [ ['a', 1], ['e', 1], ['l', 1], ['p', 2], ]