my $hash = Data::Bucket->new;
$hash->reflect->addSlots(
  hashing_strategy =>
    sub { my $self = shift; my $string = shift;
        return substr(0, 2, $string) ;
     }
  );

while (<$search_file>) {
  $hash->store($_);
}

# then later

for (<$in_file>) {
  my @bucket = $hash->bucket_for($_);
  my $best_match = fuzzy_match($_, @bucket);
  .. do something with best match ...
}