Help for this page
%hash = %{ grep { has_the_right_primary_key($_) } @hashes };
%hash = %{ ( grep hash_the_right_primary_key($_), @hashes )[0] };