$hashref=grep {has_the_right_primary_key($_)} @hashes;
%hash=$$hashref;