Instead of using variables with variable names, you should use a hash with the former variable names as keys.

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

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

print $fruits{$key};
[download]