If you want to fail the search when the item is not found, you need to add the following line before the final "print"

die "$k was not found (slot $h)" unless grep {$k==$_} keys (%{$buckets
+[$h][0]});
[download]

There are actually 3 keys in the "201" slot.
If you run the code I posted, it will show all three.
If you wanted to show only the matched key, you can use a grep statement , very similar to the one above.