$pairs = [
     ['fish','fry'],
     ['clam','bake'],
     ['wiener','roast'],
];

##</code><code>##

my $party = {map{@$_}@$pairs}->{'fish'};