# Setup
my %fruit;
++$fruit{$_} for qw( apple banana orange );

# Sample usage
if ($fruit{$object}) {
   ...
}