use constant FOO => 10;
use constant BAR => 20; 

%BAZ = ( FOO() => 1, 
         BAR() => 1
 );

sub is_baz {
    my $i = shift; 
    return ( exists $BAZ{$i} ) ? 1 : 0;
}
....
is_baz(10);