my %fruits = (
   pear_apple_peach => 1,
   pear_damson_orange => 2,
);

my @parts = ('pear', 'apple', 'peach');
my $key = join '_', @parts;

print $fruits{$key};