use Tie::Judy;

use strict;
no strict 'refs';
no strict 'subs';

sub work1 {
  my ($args,$parm2,$parm3,$parm4,$parm5) = @_;
  my $search;
  $search->{'min_key'} = '/';

## snip ##

  return(work2($search,$parm2,$parm3,$parm4,$parm5));
} # end of work1


sub work2 {
  my ($args,$parm2,$parm3,$parm4,$parm5) = @_;

my @result = $judy->search(%{$args});