use List::Util 'first';
my $party = (first {$_->[0] eq 'fish'} @$pairs)->[1];