Select Code to Download

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

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

sub as_hash {
  my $aref = shift;
  return { map @$_, @$aref };
}