Select Code to Download

sub find_key_dupes {
  my $binary_tree=shift;
...
  $sub->($binary_tree);
  return \@dupes;
}