my $party = (grep $_->[0] eq 'fish', @$pairs)[0]->[1];